IBM OEM Software Product … CD For PC Manufacturers/IBM OEM Software - Product Sampler CD for PC Manufacturers.iso/InternetIntranets/Notes/LOTUS024.DSK/SP000029

Lotus Notes Database | 1997-09-19 | 968KB | 5,185 lines

Doc Library - Notes & Web (R4.6)
#1StdR46WebDocLib
c:\notefile\doclbw46.ntf
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
EhJVT
lU    n{Y
OK5sqni;
$TITLE
$Info
$Body
CN=Lotus Notes Template Development/O=Lotus Notes
FOLDER_DIRECTORY_OBJECT
My Favorite Documents
n+^"=-b
0rA.l
i*`Lg
IWhPlbQ
W*KvU
CN=Catherine Duffy/OU=NAHQ/O=LotusCN=Catherine Duffy/O=IrisLotus NotesCN=Catherine Duffy/O=IrisLotus NotesCN=Catherine Duffy/O=IrisLotus NotesCN=Lotus Notes Template Development/O=Lotus NotesCN=Cathy Duffy/O=BeachCN=Lotus Notes Template Development/O=Lotus NotesCN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
######################################
i*`Lg
$Modified
    1S2S3S
$TITLE$FormPrivs$FormUsers$Body$Flags$Class$Modified$Comment$AssistTrigger$AssistType$AssistFlags$UpdatedBy$$FormScript_O
$Flags
    0SL1S4S5S3724
$TITLE
CN=Catherine Duffy/O=Iris##################################
Process Late Reviews
Selects those documents which are in review and have due dates which have passed.  Based upon the review style of the document, it then either moves it along to the next reviewer, marks it as complete, or simply notifies the current reviewer(s) that their review is overdue.1SfL3
CN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####################
CN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###############
CN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################################################
Main Navigator B1 - All DocumentsMain Navigator B1 - All DocumentsJP
CN=Catherine Duffy/O=Iris
ooool
ooooo
oooool
oooooo`
oooooo
qSYw{Y
###################################
CN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################################################
(SubmitDocument)
Web onlyEH4fL3u
CN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################################
(OpenDocument)
Web onlyEH4fL3u
CN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###################################
##########################################################
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$ACLDigest
'++LotusScript Development Environment:2:5:(Options):0:66
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
Declare Sub SendReminder(EmailType)
Declare Function GetString(StringType)
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim session As NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim documents As NotesDocumentCollection
Dim note As NotesDocument
Dim parent As NotesDocument
Dim emaildoc As NotesDocument
Dim dt As NotesDateTime
Dim item As NotesItem
Dim rtitem As NotesRichTextItem
Dim nam As NotesName
Dim ReviewerList As Variant
Dim ReviewerNumber As Integer
Dim ReviewWindow As String
Dim NextReviewer As String
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize

%REM
changes:
ReviewerNumber is 1 based so when Reviewer 1 is reviewing ReviewerNumber = 1.
Therefore, using a 0 based array, NextReviewer = ReviewerList(ReviewerNumber)
send the message
increment next reviewer if necessary
%END REM

'While this is similar to the same agent in doclib4, it is slightly different.  The differences are commented

     Set session = New NotesSession
     Set db = session.CurrentDatabase
     Set documents = db.Search("@Today => @Date(DueDateTime) & Status = 2", Nothing, 0)
     If documents.Count = 0 Then Exit Sub

     For d = 1 To documents.Count
          Set note = documents.GetNthDocument(d)
          ReviewWindow = note.ReviewWindow(0)
          ReviewerList = note.ReviewerList
          ReviewerNumber = note.ReviewerNumber(0)
          Set dt = New NotesDateTime(note.DueDateTime(0))
          Set nam = New NotesName(note.From(0))
'ReviewWindow in the Web version has values of 0 (no time limit), 1 (move to next reviewer), and 2 (send notification)
          Select Case ReviewWindow
          Case "1"   'Move to next reviewer
               SendReminder("WindowExpired")
               If ReviewerNumber <= Ubound(ReviewerList) Then
                    SendReminder("NotifyNextReviewer")
               Else
                    SendReminder("NotifyOriginator")
                    note.Status = 3
               End If
               note.ReviewerNumber = ReviewerNumber + 1
          Case "2"   'Send notification to current reviewer
               SendReminder("Reminder")
          End Select
          If note.IsResponse Then note.RemoveItem("DueDateTime")
          note.Save True, True, True
     Next

End Sub
'++LotusScript Development Environment:2:2:SendReminder:1:8
Sub SendReminder(EmailType)

     If note.IsResponse Then Exit Sub

     Set maildoc = New NotesDocument(db)
     Set rtitem = New NotesRichTextItem(maildoc, "Body")
     maildoc.InheritedSubject = note.Subject
     maildoc.InheritedDbTitle = db.Title

     Select Case EmailType
     Case "Reminder"
          maildoc.SendTo = ReviewerList(ReviewerNumber - 1)
          maildoc.Subject = GetString(1)
          rtitem.AppendText(GetString(2))
          Call rtitem.AppendDocLink(note, GetString(3))
     Case "WindowExpired"
          maildoc.SendTo = ReviewerList(ReviewerNumber - 1)
          maildoc.Subject = GetString(4)
          rtitem.AppendText(GetString(5))
          Call rtitem.AppendDocLink(note, GetString(3))
'reset the due date
          Set dt = New NotesDateTime("")
          dt.SetNow
          ReviewTime = note.ReviewTime(0)
          If Isnumeric(ReviewTime) Then
               dt.AdjustDay(ReviewTime)
               Set note.DueDateTime = dt
          End If
     Case "NotifyNextReviewer"
          maildoc.SendTo = ReviewerList(ReviewerNumber)
          maildoc.Subject = GetString(6)
          rtitem.AppendText(GetString(7))
          Call rtitem.AppendDocLink(note, GetString(8))
     Case "NotifyOriginator"
          maildoc.SendTo = note.From
          maildoc.Subject = GetString(9)
          rtitem.AppendText(GetString(10))
          Call rtitem.AppendDocLink(note, GetString(8))
     End Select

     maildoc.Form = "Memo"
     On Error Resume Next
     Call maildoc.Send (False)

End Sub
'++LotusScript Development Environment:2:1:GetString:1:8
Function GetString(StringType)

     Select Case StringType
     Case 1     'Subject of a reminder email
          GetString = "Overdue Document Review"
     Case 2     'Body of a reminder email
          GetString = "Your review of the document entitled " & note.Subject(0) &  " was due on " & dt.DateOnly &_
          ".  Please review the document and mark it as complete, because you will continue to receive these notifications until you do so.  "
     Case 3     'comment for the AppendDocLink method
          GetString = "DocLink to Overdue Document"
     Case 4     'Subject of WindowExpired email
          GetString = "Document Review Period has Expired"
     Case 5     'Body of a expired email
          GetString = "The time limit for your review of the document entitled " & note.Subject(0) &  " expired on " & dt.DateOnly & ".  "
     Case 6     'Subject for email notifying next reviewer that they need to review this
          GetString = "Document Requires Review"
     Case 7     'Body of email to ntes reviewer
          GetString = nam.Common & " would like you to review the document entitled " & note.Subject(0) & " before " & dt.DateOnly & ".  "
     Case 8     'comment for the AppendDocLink method
          GetString = "DocLink to Document requiring review"
     Case 9     'Subject on email to originator
          GetString = "Document Review is Complete"
     Case 10   'Body of expired email to originator
          GetString = "The time limit for the review of the document entitled " & note.Subject(0) &  " expired on " & dt.DateOnly & ".  "
     End Select

End Function
\    \    \
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$Comment
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
sZ%!ZM}
$Flags
Times New Roman
bullet
/All?OpenView
    (Return to All Documents View)
T    !hA
!ATA!T!TJ3U
&XKBU
C'UBK#JThT
 J#9#9
[$U%U>L
MLUB&B%
B4B4%
4BKB^U4B&K
f#fKf
NVM$B&K
    TJZ9J=J9E
NCML>^4UL
U%BKelg
AbA!T!T
K&KJ
hKeK3K&J
cf%K#J J
N*MLUB
K9J#Kh
= JT!TJ9J]JKf
$U4>_g
L>B3XU>
gN(L4B3K
J9J&L
4B3B4
fUB&l
M5L>:5
fC5:C
$U4ULT
B&3BL
C:>U:B
l+`:U&393Z3ZJT!
=J=]=
'UB3&B$
(_%^>L
M:U4^>:
= J ]
=TATA
LU%U'
V[$U>_5
    gN6:>_5ND
m"P8;*:U3KZ
CLUlU
VMLU^_5c
U    >:UM
6M:>U
?`':L5J
D8-DON*Y':[
C'L>Lf
+C5[:5L
    h7VML$56C
Ck$Ui%
k$>$Mf
O65L:56
DNC:U%_:M
MLU>:%
T!T!T!T
 J T=
q8;VM(
eD,D8P
C)C[:C
8pO+N
D)CM:5
?M$UL(l
=JKUb
,?C5:5L
oW,ONV
JT TJ9#3>
iP8OV
NC'M6
oD+NV
mVCM'
W;V6Y*
MLU$M
ONoML
= J9J
i/@WP
pN65M5
N*(LU
NC'LU&KJ#K
T!T!=
Th!AT
T = =
K34:f
W,Opo
@D;V(o
N)VCM$U%U
)V6YC
WO?6CV
iCD?C
= = J J J9JZ3Z
ML:M6
CM'Mh
PDNV5'>BK
ZE9JTAT
ATh!A
Th!TJ9K9J9
Z3X^MB
OD+a65V
DmVCMU
3J9Z9J
M'M5M
ONojL
POVML
oDN)V(L_>U$C'
W.D;VC:_4#Z
A!AT!A
J    93FX3141F
Dm)VML
V)CML^B3X
4F4F42
jkL:5U
    cDNCk'M6
W,Oa6ML:
PWON65:U39J9
Z3ZK9Z
jM5C)c
    `ML>:(U
ONC'L
    ,Na65LU
b+`5:>
F43J93F4F4
-DO?6:_>
;6ML%3fJ
hT J]
J9J=J#BLC
VCM'[5V*
lOVC'iU
lON?V5>UL
O?5G>
A    T]9 T=TJ]
JT!TA
J =9Z9J9
lNO)V5:_:YVO
ML[:56N8
M)a65G:5C)i
MLUBUL
;)V65UBUMoe
V;V5:>^3X
F4RF9
9J#B
@DNVYMLMB
ON*YM$B3
NVCM:^&BK#KUM
=T=T=
NV6MU%>[6VN7D-
[5?78
D;?6[:S>:CN,D
V(k$UL'C
VCMLU
4B>5VOD
UB%L5V;+;N
V;O7O;?C6Y:4&B$C+
#J=JTJ
=gJBLM
r8D+VC5M:5C?NO\N?65:^B9J
$lU$MC*
!T!T!
h!h!TAT
o*C65_%B4>:MC?N
;N?VCMLUB4U
)V5M$24B4UM6VN;N;+NV
>:Y*?N
4>:Y6V
VCM[:>
BL5o?
CLU43K9J TJ93#Z=
T!hT!hT fB$LkM'L>
M'LU%eB>[(
N;O;VC
5M:4K
bIbIbA
A!Ah!
kM[LU
3^2U:5C6V`C
X&XB>:
MLiU%
U$L[M
:LU>U2^4^_:[
V?V6([
BULMk:
J]J T
JK^U>
K3B4U>
MC6`*6C
5M:LS
U>UL:5
>4B9J
JeU$L
>U3K#K
K    9 J
%BeK#KJK&BU>
%U4U2
K3X&B^
T!T!T
!TJ34U%U>SU4XB
>:M5M:
4BX&3
=J=J]=
3#g=J9
#KJK3K
4    U>4B&3&3B
X3BFB4U
J9K9K3K3&
#fKfK
J] hA
XB4U4B&3K
]JK3BXB
K    3B43BX3KX
X43KJ
T TJ=
JZ39J
 T!T9
3439K
BF3K9J
=J#K9J9Z3
J9Z3K9K
#K39Z
=JT T
!hThT
h!ThT
K9]J]
 9]!hTJ9Z9J
hA!h!h
TJ JT
    AbAb
!TAh!T
bAbAbAb
T=]JT
s{{kss{
k{{cssZkk
ks{cks
ss{{{
Using Document Library
    This database allows you to capture and track information about documents.
Functions of the Database:
    To add a document to this database
    Click the New Document action from any of the views.
    To respond to a document
    Open a document, then click the Response action.  From a Notes Client, you can also highlight that document in a view, then click Response from there.  For Notes Client users, this creates a response to the main document in the thread.  For browser clients, this creates a response to the current document.
    To respond to a response
    From a Notes Client, highlight the response you wish to respond to, then click Response to Response.  This function is performed from a browser by using the Response action, as described above.
    To flag a document as Private:
    You can use the "Mark Private" and
    "Mark Public" actions in the template to control whether anyone other than yourself can read a specific document.  For example, if you have not completed the writing of a particular document, you can click the "Mark Private" action and others will not be able to see the document.  When you complete the document, you can click the
    "Mark Public"
    action to make it available for others to read.  If a document is marked private after it has been submitted for review, the document author and the reviewers will be able to read the document.
ACL Settings
    This application was designed with the intention that all users, except the manager, should have Author access.  If they have editor access, the review cycle may not function correctly.  Anonymous access is also not permitted.
Features
    Document Review Cycle:
    The author of a document has the option of setting up a document review cycle for that document. To do so simply click on the Setup Review Cycle link and fill in the necessary information.
    Note:
    Do not use
    @Domain
     when entering approver names.  Any domain added will be stripped off and may cause complications when attempting to route a request.  Also, only enter Person-names as approvers.  Group names are not supported.
    Processing Late Reviews:
    If the Process Late Reviews agent is enabled, it selects those documents which are in review and have due dates which have passed.  Based on the time limit options chosen by the originator, it then either moves it along to the next reviewer, marks it as complete, or simply notifies the current reviewer that the review is overdue.
    Document Archiving:
    This is a process by which certain documents are removed from the current database and stored in a different database.  This keeps the document library up-to-date with only the latest topics.  Most of the Archiving activities take place from the "Archiving" view.  You must switch to this view in order to initiate archiving on a document library database.
To set up archiving on any document library database, switch to the Archiving view and click the action called "Setup Archive".  The Archive Profile appears.  This document contains criteria that the user specifies for archiving topics in a document library (e.g., inactive after 'x' days, or expired after 'x' days).  The archive database is automatically created when the Profile is saved.  The archival database filename is also specified in the Archive Profile; the title of the archive will be the title of the Document Library database followed by "(Archived)".  After the archive criteria have been specified in the Archive Profile, other agents run on the database to move the document(s).
    Mark/Unmark Document as Expired:
      Marks a topic as "expired".
If the Archive Profile specifies that
    expired
    topics should be archived, the document(s) marked with this agent would fall into that criterion.  If a document is already marked as expired, this agent tells the user what the expire date was, and will ask if the user wants to un-expire it.
    Periodic Archive:
Reviews the Archive Profile and moves documents which meet the archive criteria into the archive database.  This agent is run automatically on the server; the schedule is set by the database manager/designer.
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
9E9    ?
$Info
$Body
Document
Document
    0S0E
EGCAw)
}{A@>)
My Favorite DocumentsMy Favorite Documents/L
Scope
Private
ExpireDate
_ViewIcon
    2S3S4S6S8S9S12S14S
DocumentG
Status
StatusY
Subject
$VersionOpt
Subject
  (Original document in review cycle)
ReviewStyle
ParallelG
Subject
  (Reviewed by
LastEditor"
Subject
  (Reviewed by
PreviousReviewers
Archive
Subject
Subject
(Response to
OriginalSubject
Subject
 (Response to "
OriginalSubject
    6S9RS4E12S13S14S15S20RS8E22RS4E27RS8E28S29S31RS4E35S38RS9E39S40S41S42S2E43S44S46RS4E47S48S49S50S56S57S60R64S67RS4E69R70S71S73RS5E74S75S76S79R80S81S82S83S84S85S
$29$30$27From$Conflict
From$27
CN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Catherine Duffy/O=IrisFYpdw
##################################################
CN=Catherine Duffy/O=IrisCN=Cathy Duffy/O=BeachCN=Catherine Duffy/O=IrisCN=Tidepool/O=BeachCN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Catherine Duffy/O=IrisCN=Tidepool/O=BeachCN=Catherine Duffy/O=IrisCN=Cathy Duffy/O=BeachCN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesSubmitForReviews34Q1########
By Author |ByAuthorp
$14#i
useSubject
ImmediateParentSubjecth
ImmediateParentSubject
OriginalSubject
OriginalSubject
    1S2S9S11RS35E16S18RS31E
readers
PRIVATE:
ExpireDate
EXPIRED:
Subject
Untitled
Subject
useSubject
 (RE:
useSubject
    0RR4S8RS8E9S14RS6E17RR20S21S23S25S27S28RR31S32S34RS8E37S38S40RS4E
$33$14$35$Conflict
$33$14
 $33 ,
$14Date
$14#i
$35Topic
useSubject
ImmediateParentSubjecth
ImmediateParentSubject
OriginalSubject
OriginalSubject
    1S2S9S11RS35E16S18RS31E
readers
PRIVATE:
ExpireDate
EXPIRED:
Subject
Untitled
Subject
useSubject
 (RE:
useSubject
    0RR4S8RS8E9S14RS6E17RR20S21S23S25S27S28RR31S32S34RS8E37S38S40RS4E&
CN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################################
$$ViewTemplate for ByAuthorCD
CN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###########
Scope
Private
ExpireDate
_ViewIcon
    2S3S4S6S8S9S12S14S
$30Title
DocumentG
Status
StatusY
Subject
$VersionOpt
Subject
  (Original document in review cycle)
ReviewStyle
ParallelG
Subject
  (Reviewed by
LastEditor"
Subject
  (Reviewed by
PreviousReviewers
Archive
Subject
Subject
(Response to
OriginalSubject
Subject
 (Response to "
OriginalSubject
    6S9RS4E12S13S14S15S20RS8E22RS4E27RS8E28S29S31RS4E35S38RS9E39S40S41S42S2E43S44S46RS4E47S48S49S50S56S57S60R64S67RS4E69R70S71S73RS5E74S75S76S79R80S81S82S83S84S85S$27Date
FromAuthor&
Categori_ze
_Edit Document
Send Docu_ment
_Forward
Navigator
EnvName
NavigatorState"
    1S2S
EnvName
EnvName
EnvName
    0R11RS8E13RS20E14S20RS20E30RS8E32RS20E33S39RS20E44RS9E
New Document,
Document
    0S0E
Response,
Response
    0S0E
Response to Response8
Response to Response
    0S0E
_Move to Folder...
_Remove from Folder...
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Name
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$Comment
$ACTIONS
Times New Roman
    0S0E
    Click here to access the database
/All?OpenView
    (Click here to open the database)
T    !hA
!ATA!T!TJ3U
&XKBU
C'UBK#JThT
 J#9#9
[$U%U>L
MLUB&B%
B4B4%
4BKB^U4B&K
f#fKf
NVM$B&K
    TJZ9J=J9E
NCML>^4UL
U%BKelg
AbA!T!T
K&KJ
hKeK3K&J
cf%K#J J
N*MLUB
K9J#Kh
= JT!TJ9J]JKf
$U4>_g
L>B3XU>
gN(L4B3K
J9J&L
4B3B4
fUB&l
M5L>:5
fC5:C
$U4ULT
B&3BL
C:>U:B
l+`:U&393Z3ZJT!
=J=]=
'UB3&B$
(_%^>L
M:U4^>:
= J ]
=TATA
LU%U'
V[$U>_5
    gN6:>_5ND
m"P8;*:U3KZ
CLUlU
VMLU^_5c
U    >:UM
6M:>U
?`':L5J
D8-DON*Y':[
C'L>Lf
+C5[:5L
    h7VML$56C
Ck$Ui%
k$>$Mf
O65L:56
DNC:U%_:M
MLU>:%
T!T!T!T
 J T=
q8;VM(
eD,D8P
C)C[:C
8pO+N
D)CM:5
?M$UL(l
=JKUb
,?C5:5L
oW,ONV
JT TJ9#3>
iP8OV
NC'M6
oD+NV
mVCM'
W;V6Y*
MLU$M
ONoML
= J9J
i/@WP
pN65M5
N*(LU
NC'LU&KJ#K
T!T!=
Th!AT
T = =
K34:f
W,Opo
@D;V(o
N)VCM$U%U
)V6YC
WO?6CV
iCD?C
= = J J J9JZ3Z
ML:M6
CM'Mh
PDNV5'>BK
ZE9JTAT
ATh!A
Th!TJ9K9J9
Z3X^MB
OD+a65V
DmVCMU
3J9Z9J
M'M5M
ONojL
POVML
oDN)V(L_>U$C'
W.D;VC:_4#Z
A!AT!A
J    93FX3141F
Dm)VML
V)CML^B3X
4F4F42
jkL:5U
    cDNCk'M6
W,Oa6ML:
PWON65:U39J9
Z3ZK9Z
jM5C)c
    `ML>:(U
ONC'L
    ,Na65LU
b+`5:>
F43J93F4F4
-DO?6:_>
;6ML%3fJ
hT J]
J9J=J#BLC
VCM'[5V*
lOVC'iU
lON?V5>UL
O?5G>
A    T]9 T=TJ]
JT!TA
J =9Z9J9
lNO)V5:_:YVO
ML[:56N8
M)a65G:5C)i
MLUBUL
;)V65UBUMoe
V;V5:>^3X
F4RF9
9J#B
@DNVYMLMB
ON*YM$B3
NVCM:^&BK#KUM
=T=T=
NV6MU%>[6VN7D-
[5?78
D;?6[:S>:CN,D
V(k$UL'C
VCMLU
4B>5VOD
UB%L5V;+;N
V;O7O;?C6Y:4&B$C+
#J=JTJ
=gJBLM
r8D+VC5M:5C?NO\N?65:^B9J
$lU$MC*
!T!T!
h!h!TAT
o*C65_%B4>:MC?N
;N?VCMLUB4U
)V5M$24B4UM6VN;N;+NV
>:Y*?N
4>:Y6V
VCM[:>
BL5o?
CLU43K9J TJ93#Z=
T!hT!hT fB$LkM'L>
M'LU%eB>[(
N;O;VC
5M:4K
bIbIbA
A!Ah!
kM[LU
3^2U:5C6V`C
X&XB>:
MLiU%
U$L[M
:LU>U2^4^_:[
V?V6([
BULMk:
J]J T
JK^U>
K3B4U>
MC6`*6C
5M:LS
U>UL:5
>4B9J
JeU$L
>U3K#K
K    9 J
%BeK#KJK&BU>
%U4U2
K3X&B^
T!T!T
!TJ34U%U>SU4XB
>:M5M:
4BX&3
=J=J]=
3#g=J9
#KJK3K
4    U>4B&3&3B
X3BFB4U
J9K9K3K3&
#fKfK
J] hA
XB4U4B&3K
]JK3BXB
K    3B43BX3KX
X43KJ
T TJ=
JZ39J
 T!T9
3439K
BF3K9J
=J#K9J9Z3
J9Z3K9K
#K39Z
=JT T
!hThT
h!ThT
K9]J]
 9]!hTJ9Z9J
hA!h!h
TJ JT
    AbAb
!TAh!T
bAbAbAb
T=]JT
s{{kss{
k{{cssZkk
ks{cks
ss{{{
About Document Library
    What does this database do?
    A Document Library application is an electronic filing cabinet that stores reference documents for access by a workgroup.  The database might contain anything from environmental impact statements for a group of engineers to financial statements for a group of loan officers.
    Who will use this database?
    Anyone who wishes to create a record of a document or review available documents may use this database.
    Important Features
    Web or Notes client:
     Database can be accessed from either a Web browser or a Notes Client.
    Review Cycle:
     Used to route a document to a series of recipients.
    Document Archiving:
     Used to move expired documents to an archive database.
    Suggestions for Modifications
    Full text search:
    If you wish to use Notes' full text search capabilities for a database created with this template, select menu File, Database, Properties, go to the Full Text panel and then select Create Index... to create the full text index.
    Where to find more information?
    More information can be found in the
Notes
/$Help?OpenHelp
    3S4S6S11S21S
    Using This Database
     document, or refer to the following documentation database on http://www.notes.net:  Best Practices: Templates and Sample Databases (BPTEMP.NSF)
    Access Control
    Very Important:
    Access level should be
    Author
     for all users of this database.  This will prevent unauthorized editing of documents within the database.  The Author fields within the forms govern who will be able to edit/review particular documents.   Errors will occur if someone with Editor access attempts to review a document when they are not an authorized reviewer of that document.  For those accessing the database from a Web browser, the database does not accept Anonymous users.
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$Info
$Body
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Explicit
Use "SubmitForReview"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize

'logging is for debug purposes
     Set dbug = New NotesLog("SubmitDocument")
'to turn off the debug log, set this to False
     dbug.LogActions = True
     dbug.OpenAgentLog

     On Error Goto StandardError

     Set session = New NotesSession
     Set db = session.CurrentDatabase
     DbName = getdbpath
     Set note = session.DocumentContext
     If note.Form(0) <> "Document" Then Goto ExitWithoutSend
     If note.HasItem("SaveOnly") Then
          note.RemoveItem("SaveOnly")
          Exit Sub
     End If

     If note.SubmitNow(0) = "1" Then SubmitNow = True

'If we are not submitting for review, we don't need to do the rest of this
     If (Not(SubmitNow) Or note.Status(0) = 3) And note.Resubmit(0) = "0" Then Goto ExitWithoutSend

'Validate the Originator is not in the ReviewerList
     If ListIncludesOriginator Then
          ErrorText = GetString(17)
          Goto ValidationError
     End If

'Validate that ReviewTime has a valid entry if ReviewWindow is not 0
     Set item = note.GetFirstItem("ReviewTime")
     If note.ReviewWindow(0) <> "0" Then
          Dim InvalidReviewTime As Integer
'This verifies that it is not 0 or blank or a string
          If item.Text = "" Or item.Text = "0" Or item.Text Like "*ERROR*" Then
               InvalidReviewTime = True
'This verifies that it is a whole number > 0
          Elseif note.ReviewTime(0) < 1 Or Int(note.ReviewTime(0)) <> note.ReviewTime(0) Then
               InvalidReviewTime = True
          End If
          If InvalidReviewTime Then
               FieldName = "Time Limit"
               ErrorText = GetString(16)
               Goto ValidationError
          End If
     End If

'Validate that ReviewerList is not empty
     If note.ReviewerList(0) = "" Then
          FieldName = "Reviewer List"
          ErrorText = GetString(19)
          Goto ValidationError
     End If

     SendToNext 'in scriptlib SubmitForReview

     Exit Sub

ExitWithoutSend: 'You submitted the form but were not sending anything to anyone
     Print "<h3>" & GetString(9) & "</h3>"
     Goto ViewLinks

StandardError: 'This is for errors which we are not specifically handling
     Print "<h2>" & GetString(12) & "</h2>"
     Goto ViewLinks

ValidationError:
     Print "<h2>" & ErrorText & "</h2><hr>"
     Print "<h3><a href=/" & DbName & "/($All)/" & note.UniversalId & "?EditDocument>" & GetString(14) & "</a>" & GetString(15) & "<hr>"

     Exit Sub

ViewLinks:
     Print "<hr><center>" & _
     "<b><a href=/" + DbName + "/All?OpenView>" & GetString(30) & "</a></b> | " & _
     "<b><a href=/" + DbName + "/ByCategory?OpenView>" & GetString(33) & "</a></b> | " & _
     "<b><a href=/" + DbName + "/ByAuthor?OpenView>" & GetString(31) & "</a></b> | " & _
     "<b><a href=/" + DbName + "/ReviewStatus?OpenView>" & GetString(32) & "</a></b>" & _
     "</center><hr>"

End Sub
l    l    H
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$Comment
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Explicit
Option Compare Nocase
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Function GetString(StringType)
Declare Function SendToNext
Declare Function ListIncludesOriginator
Declare Function GetDBPath
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim session As NotesSession
Dim db As NotesDatabase
Dim note As NotesDocument
Dim mailnote As NotesDocument
Dim savenote As NotesDocument
Dim rtitem As NotesRichTextItem
Dim item As NotesItem
Dim dbug As NotesLog
Dim username As NotesName
Dim fromname As NotesName
Dim sendtoName As NotesName
Dim reviewername As NotesName
Dim dt As NotesDateTime
Dim ReviewerNumber, TotalReviewers, Position, SubmitNow, IsCurrentReviewer As Integer
Dim ReviewerList, ReviewTime As Variant
Dim NextReviewer, DbName, ViewList, NotificationType, ClientType, FieldName, ErrorText As String
'++LotusScript Development Environment:2:1:GetString:1:8
Function GetString(StringType)

     Select Case StringType
     Case 1     'Subject of the original copy of the document
          GetString = "Original Copy: " & note.Subject(0)
     Case 2     'Subject of the final reviewer email stating that all reviewers have completed their review
          GetString = "Review is complete for the document entitled:  " & note.Subject(0)
     Case 3     'Subject of email informing a reviewer that they need to review this doc
          GetString = fromname.Common & " would like you to review the document entitled: " & note.Subject(0)
     Case 4     'First line of acknowledgement page, informing user that email was successfully sent to originator
          GetString = sendtoname.Common & " has been notified that review of this document is complete"
     Case 5     'First line of acknowledgement page, informing user that email was successfully sent to next reviewer
          GetString = sendtoname.Common & " has been notified that this document requires review"
     Case 6     'Line in Reviewer Log stating when the doc was submitted for review by the originator
          GetString = "Submitted for review on " & Today
     Case 7     'Line in Reviewer Log stating that a particular reviewer has been skipped
          'GetString = ReviewerList(ReviewerNumber - 1) & " was skipped over by " & username.Common & " on " & Today
          GetString = reviewername.Common & " was skipped over by " & username.Common & " on " & Today
     Case 8     'Line in Reviewer Log stating when a particular reviewer completed their review
          GetString = "Review completed by " & username.Common & " on " & Today
     Case 9     'User submitted form but did not indicate that they needed to send anything
          GetString = "Document has been saved"
     Case 10   'Text for the Body field of the notification email
          GetString = "Click on this link to access the document.  "
     Case 11   'Text associated with the AppendDocLink method
          GetString = db.Title & ", " & note.Subject(0)
     Case 12   'An error that we are not specifically handling
          GetString = Err & " - " & Error
     Case 13   'First line on the acknowledgment page when there was an error sending the document
          GetString = "Error sending review notification to " & sendtoName.Common
     Case 14   '1st string in the second line on the acknowledgement page when there was an error sending the document
          '(the string says "Return to Document, fix the whatever, and resubmit" and Return to Document is a link back to the doc"
          GetString = "Please click here to return to the document"
     Case 15   '2nd string in the second line on the acknowledgement page when there was a validation or send error
          GetString = ", fix the " & FieldName & ", and resubmit."
     Case 16   '1st line of Error if user entered a ReviewWindow but no ReviewTime
          GetString = "You indicated what should happen when the time limit expires but you did not indicate a valid Time Limit (a whole number greater than 0).  "
     Case 17   '1st line of Error if originator included themself in the reviewer list
          GetString = "The document's originator cannot be included in the reviewer list.  "
     Case 18   'messagebox text for validation errors
          GetString = "Please enter a valid " & FieldName & "."
     Case 19   'User indicated submit for review but didn't enter any reviewers
          GetString = "You did not indicate who should review this document."
     Case 30   '30-33 are the names of views you can go to from the submitted page
          GetString = "All Documents"
     Case 31   '30-33 are the names of views you can go to from the submitted page
          GetString = "By Author"
     Case 32   '30-33 are the names of views you can go to from the submitted page
          GetString = "Review Status"
     Case 33   '30-33 are the names of views you can go to from the submitted page
          GetString = "By Category"
     Case 40   'Title bar for messageboxes (Notes client only)
          GetString = "Document Library"
     Case 41   'Title bar for error messageboxes (Notes client only)
          GetString = "Document Library - Error"
     End Select

End Function
'++LotusScript Development Environment:2:1:SendToNext:1:8
Function SendToNext

     If Not(dbug Is Nothing) Then dbug.LogAction("SendToNext")

     SendToNext = True

     On Error Goto StandardError

     Set mailnote = New NotesDocument(db)

     ReviewerList = note.ReviewerList
     TotalReviewers = Ubound(ReviewerList)

     Set username = New NotesName(note.CurrentUser(0))
     Set reviewername = New NotesName(note.CurrentEditor(0))
     Set fromname = New NotesName(note.From(0))

     If Lcase(username.Common) = Lcase(reviewername.Common) Then IsCurrentReviewer = True

'Statuses:  1=New, 2=In Review, 3=Review Complete
     If note.Status(0) = 1 Then
'savenote is a copy of the original which we save as a response to the copy that will be reviewed
          If Not(note.HasItem("OriginalSaved")) Then
               note.save True, True, True
               Set savenote = New NotesDocument(db)
               Call note.CopyAllItems(savenote, False)
'from the Notes client, the body field is not available to note until a ui save
               If note.HasItem("Body") Then
                    Set rtitem = note.GetFirstItem("Body")
                    savenote.RemoveItem("Body")
                    Call rtitem.CopyItemToDocument(savenote, "Body")
               Else
                    note.CopyBody = True
               End If
               Call savenote.MakeResponse(note)
               savenote.~$RefOptions = "1"
               savenote.Subject = GetString(1)
               savenote.save True, True, True
               note.OriginalSaved = savenote.UniversalId
          End If
'if we are skipping the first reviewer on the initial send, we need to increment the reviewernumber
          If note.Resubmit(0) = "2" Then
               ReviewerNumber = 1
               note.ReviewerNumber = 1
          Else
               ReviewerNumber = 0
               note.ReviewerNumber = 0
          End If
     Else
          ReviewerNumber = note.ReviewerNumber(0)
     End If

'in this case we are resubmitting after a successful send so we decrement the ReviewerNumber
     If note.Resubmit(0) = "1" And Not(note.HasItem("SendError")) Then
          ReviewerNumber = ReviewerNumber - 1
'in this case we are skipping this person and sending notification to the next person
     Elseif note.Resubmit(0) = "2" And IsCurrentReviewer Then
          ReviewerNumber = ReviewerNumber + 1
     End If

'in this case I am the last person in the reviewer list
     If ReviewerNumber > TotalReviewers Then
          mailnote.SendTo = note.From
          mailnote.Subject = GetString(2)
          NotificationType = "complete"
          Gosub SendMail
          note.Status = 3
          note.RemoveItem("DocAuthors")
     Else
          NotificationType = "review"
'if this is a resubmit, you might have entered something new in the NewReviewer field, so we need to put that in ReviewerList
          If note.Resubmit(0) = "1" Then
               ReviewerList(ReviewerNumber) = note.NewReviewer(0)
               note.ReviewerList = ReviewerList
          End If
          mailnote.SendTo = ReviewerList(ReviewerNumber)
          mailnote.Subject = GetString(3)
          Gosub SendMail
          If note.NotifyAfter(0) = "1" And ReviewerNumber > 0 And fromname.Common <> username.Common Then
               NotificationType = "originator"
               mailnote.SendTo = note.From
               mailnote.Subject = GetString(8)
               Gosub SendMail
'these two things need to be reset
               NotificationType = "review"
               mailnote.SendTo = ReviewerList(ReviewerNumber)
          End If
'if the send was successful, reset the NexReviewer variable
          NextReviewer = mailnote.SendTo(0)
          Position = Instr(NextReviewer, "@")
          If Position > 0 Then NextReviewer = Left(NextReviewer, Position)
     End If

'We make sure that the mailsend is successful before we alter any field values on the current document

'put the next reviewer in the author name field so they can edit the doc, but strip off the @ if there is one
     If note.Status(0) = 1 Then
          note.Status = 2
          note.ReviewerLog = GetString(6)
     Else
          Set item = note.GetFirstItem("ReviewerLog")
'First, note that the review is complete if appropriate
          If (SubmitNow Or (note.Resubmit(0) <> "0" And note.HasItem("SendError"))) And IsCurrentReviewer Then
               item.AppendToTextList(GetString(8))
          End If
     End If
'Then, if someone was skipped log that as well
     If note.Resubmit(0) = "2" Then
          If item Is Nothing Then Set item = note.GetFirstItem("ReviewerLog")
          'If IsCurrentReviewer Then
          Set reviewername = New NotesName(ReviewerList(ReviewerNumber-1))
          'Else
          '     Set reviewername = New NotesName(ReviewerList(ReviewerNumber))
          'End If
          item.AppendToTextList(GetString(7))
     End If

     NextReviewer = mailnote.SendTo(0)
     Position = Instr(NextReviewer, "@")
     If Position > 0 Then NextReviewer = Left(NextReviewer, Position)
     note.CurrentEditor = NextReviewer
     note.NewReviewer = NextReviewer
'ReviewerNumber is 0 based here but 1 based on the document because it is used by Notes formulas
     note.ReviewerNumber = ReviewerNumber + 1
     note.RemoveItem("SubmitNow")
     note.RemoveItem("Resubmit")
     note.RemoveItem("SendError")
     note.RemoveItem("CurrentUser")

ExitWithSuccessfulSend: 'You submitted the form for review and the notification mail was sent successfully

     If ClientType = "Notes" Then
          If NotificationType = "complete" Then
               Messagebox GetString(4), 0, GetString(40)
          Else
               Messagebox GetString(5), 0, GetString(40)
          End If
     Else
          If NotificationType = "complete" Then
               Print  "<h3>" & GetString(4) & "</h3>"
          Else
               Print  "<h3>" & GetString(5) & "</h3>"
          End If
          Print "<hr><center>" & _
          "<b><a href=/" + DbName + "/All?OpenView>" & GetString(30) & "</a></b> | " & _
          "<b><a href=/" + DbName + "/ByCategory?OpenView>" & GetString(33) & "</a></b> | " & _
          "<b><a href=/" + DbName + "/ByAuthor?OpenView>" & GetString(31) & "</a></b> | " & _
          "<b><a href=/" + DbName + "/ReviewStatus?OpenView>" & GetString(32) & "</a></b>" & _
          "</center><hr>"
          note.RemoveItem("SendError")
     End If

     Exit Function

SendMail:

'set the due date
     If note.ReviewWindow(0) <> "0" Then
          Set dt = New NotesDateTime("")
          dt.SetNow
          ReviewTime = note.ReviewTime(0)
          If Isnumeric(ReviewTime) Then
               dt.AdjustDay(ReviewTime)
               Set note.DueDateTime = dt
          End If
     End If

     mailnote.Form = "Memo"

     Set rtitem = New NotesRichTextItem(mailnote, "Body")
     rtitem.AppendText(GetString(10))
     Call rtitem.AppendDocLink(note, GetString(11))

     If NotificationType = "originator" Then
'we don't care if there is a problem telling the originator that someone completed their review
'they can always get that info from the reviewer log on the doc and we don't have a way to correct the send error
          On Error Resume Next
     Else
          Set sendtoName = New NotesName(mailnote.SendTo(0))
          On Error Goto MailError
     End If
     mailnote.Send(False)
     Err = 0

     On Error Goto StandardError
     Return

StandardError: 'This is for errors which we are not specifically handling
     If ClientType = "Notes" Then
          Messagebox GetString(12), 0 + 16, GetString(41)
          SendToNext = False
     Else
          Print "<h2>" & GetString(12) & "</h2>"
          Print "<hr><center>" & _
          "<b><a href=/" + DbName + "/All?OpenView>" & GetString(30) & "</a></b> | " & _
          "<b><a href=/" + DbName + "/ByCategory?OpenView>" & GetString(33) & "</a></b> | " & _
          "<b><a href=/" + DbName + "/ByAuthor?OpenView>" & GetString(31) & "</a></b> | " & _
          "<b><a href=/" + DbName + "/ReviewStatus?OpenView>" & GetString(32) & "</a></b>" & _
          "</center><hr>"
     End If
     Exit Function

MailError: 'This is for mail send errors
'if the doc has a SendError field, we display a different part of the form so they can correct the name
     note.SendError=1
'reset the default for NewReviewer to the person we tried to send to
     note.NewReviewer = ReviewerList(ReviewerNumber)
'set Resubmit back to the default so the user can choose to resubmit or skip
     note.Resubmit = "0"

     If ClientType = "Notes" Then
          Messagebox GetString(13), 0 + 16, GetString(41)
          SendToNext = False
     Else
          FieldName = "name"
          Print "<h2>" & GetString(13) & "</h2><hr>"
          Print "<h3><a href=/" & DbName & "/($All)/" & note.UniversalId & "?EditDocument>" & GetString(14) & "</a>" & GetString(15) & "<hr>"
     End If
     Exit Function

End Function
'++LotusScript Development Environment:2:1:ListIncludesOriginator:1:8
Function ListIncludesOriginator

'the reviewer list cannot include the originator.  The assumption is that since you wrote it you don't need to review it.

     ListIncludesOriginator = False
     Dim comparename As NotesName
     Dim SameName As Integer

     ReviewerList = note.ReviewerList
     Set fromname = New NotesName(note.From(0))
     Forall r In ReviewerList
          Set comparename = New NotesName(r)
          If comparename.IsHierarchical And fromname.IsHierarchical And comparename.Abbreviated = fromname.Abbreviated Then
               ListIncludesOriginator = True
               FieldName = "Reviewer List"
               Exit Function
          Elseif comparename.Common = fromname.Common Then
               ListIncludesOriginator = True
               FieldName = "Reviewer List"
               Exit Function
          End If
     End Forall

     Set comparename = New NotesName(note.NewReviewer(0))
     If comparename.IsHierarchical And fromname.IsHierarchical And comparename.Abbreviated = fromname.Abbreviated Then
          ListIncludesOriginator = True
          FieldName = "Reviewer"
     Elseif comparename.Common = fromname.Common Then
          ListIncludesOriginator = True
          FieldName = "Reviewer"
     End If

End Function
'++LotusScript Development Environment:2:1:GetDBPath:1:8
Function GetDBPath
'check to see if the database is in a directory and swap the slash directions
     Dim tmpPath As String
     tmpPath = db.filepath
     Do While Instr(tmpPath,"\") > 0
          tmpPath = Left$(tmpPath, Instr(tmpPath,"\")-1) + "/" + Right$(tmpPath,Len(tmpPath)-Instr(tmpPath,"\"))
     Loop

'check and see if there are any embedded spaces and replace them with +
     Do While Instr(tmpPath," ") > 0
          tmpPath = Left$(tmpPath, Instr(tmpPath," ")-1) + "+" + Right$(tmpPath,Len(tmpPath)-Instr(tmpPath," "))
     Loop

     GetDbPath = tmpPath

End Function
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
!$4;R
$ScriptLib
$ScriptLib_O
$TITLE
$Flags
$PublicAccess
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Explicit
Use "SubmitForReview"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize

'logging is for debug purposes
     Set dbug = New NotesLog("SubmitDocument")
'to turn off the debug log, set this to False
     dbug.LogActions = True
     dbug.OpenAgentLog

     On Error Goto StandardError

     Set session = New NotesSession
     Set db = session.CurrentDatabase
     Set note = session.DocumentContext

'remove all of these so they can ger resest with default values each time the doc is opened
     note.RemoveItem("SaveOptions")
     note.RemoveItem("CurrentUser")
     note.RemoveItem("SubmitNow")
     note.RemoveItem("Resubmit")
     note.WebCategories = note.Categories
     note.Save True, True, True
     Exit Sub

StandardError: 'This is for errors which we are not specifically handling
     Print "<h2>" & GetString(12) & "</h2>" & GetString(30)
     Exit Sub


End Sub
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$Comment
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
Categori_ze
_Edit Document
Send Docu_ment
_Forward
Navigator
EnvName
NavigatorState"
    1S2S
EnvName
EnvName
EnvName
    0R11RS8E13RS20E14S20RS20E30RS8E32RS20E33S39RS20E44RS9E
New Document,
Document
    0S0E
Response,
Response
    0S0E
Response To Response6
ResponseToResponse
    0S0E
_Move to Folder...
_Remove from Folder...
Mark/Unmark Document As Expired
(Mark/Unmark Document As Expired)
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
'\,;ic
j79p<
$TITLE
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$Comment
$ACTIONS
By Category |ByCategoryv
$111l
    9S11S
$116i
AuthorName
Fromh
Anonymous
    1S2S16S
readers
PRIVATE:
ExpireDate
EXPIRED:
Subject
Subject
AuthorName
D2S0V
    0R4S8RS8E9S14RS6E17R20S21S23S24S25S27S29S30S31S32S33S34S35S43S
readers
PRIVATE:
ExpireDate
EXPIRED:
Subject
Untitled
Subject
Fromh
D0S0V
    4S8RS8E9S14RS6E17R20S21S23S25S27S28S29S30S34S36S37S2E48S56S
Categories$111$116$112$118$Conflict$REF
Categories$116YT
CN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##############################
Review Status|ReviewStatus1/
Status$43DueDateTime
$48$47
DueDateTime$47Y
CN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########
($All)|Allf
$106l
    0S0E
$116l
    9S11S
$121i
AuthorName
Fromh
Anonymous
    1S2S16S
readers
PRIVATE:
ExpireDate
EXPIRED:
Subject
Subject
AuthorName
D2S0V
    0R4S8RS8E9S14RS6E17R20S21S23S24S25S27S29S30S31S32S33S34S35S43S
readers
PRIVATE:
ExpireDate
EXPIRED:
Subject
Untitled
Subject
    4S8RS8E9S14RS6E16S17R20S21S23S25S27S28S29S30S36S37S
$106$116$121$117$122$Conflict$REF
$106$121
$106Y
CN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################################
Nav2 - By Author|Nav2
552Helvetica652HelveticaG3
CN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################
Nav3 - By Category|Nav3
552Helvetica652HelveticaG3
CN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################
Nav4 - By Review Status|Nav4
552Helvetica652HelveticaG3
CN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################
##########################################################
##########################################################
##########################################################
 Categories$111D
$111l
    9S11S$116
$116i
AuthorName
Fromh
Anonymous
    1S2S16S
readers
PRIVATE:
ExpireDate
EXPIRED:
Subject
Subject
AuthorName
D2S0V
    0R4S8RS8E9S14RS6E17R20S21S23S24S25S27S29S30S31S32S33S34S35S43S
$118TopicF
readers
PRIVATE:
ExpireDate
EXPIRED:
Subject
Untitled
Subject
Fromh
D0S0V
    4S8RS8E9S14RS6E17R20S21S23S25S27S28S29S30S34S36S37S2E48S56S&
Categori_ze2
_Edit Document
Send Docu_ment
_Forward
Navigator?>
EnvName
NavigatorState"
    1S2S
EnvName
EnvName
EnvName
    0R11RS8E13RS20E14S20RS20E30RS8E32RS20E33S39RS20E44RS9E
New Document,
Document
    0S0E
Response,
Response
    0S0E
Response To Response6
ResponseToResponse
    0S0E
_Move to Folder...
_Remove from Folder...
Mark/Unmark Document As Expired
(Mark/Unmark Document As Expired)
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
RkKvV
$TITLE
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$Comment
$ACTIONS
SendError
An error occurred when sending review notification
Status
Status
In Review
Status
Complete
No Status
    7S9S10S11S13S15S16S17S19S21S22S23S25S27S
Scope
ExpireDate
_ViewIcon
    2S3S4S6S8S9S12S14S
DocumentG
$VersionOpt
Original by
ReviewStyle
Review by
LastEditor
Subject
Untitled
Subject
    6S9RS4E16RS9E22S25RS4E31RS9E32S33S2E37S40RS4E44R47S48S50S52S54S55S56S57S61S63S64S
Subject
Untitled
Subject
    3S4S6S8S
Status
ReviewerNumber
ReviewerList
ReviewerNumberk
    3S4S5S6S7S8S10S14S18S22S
Status$43$44$49$48$46$47DueDateTime$Conflict$REF
Statush
Status
ReviewerList
    L1S5S6S8S9S10S11S12S13S
 Status$43  $
SendError
An error occurred when sending review notification
Status
Status
In Review
Status
Complete
No Status
    7S9S10S11S13S15S16S17S19S21S22S23S25S27S
Scope
ExpireDate
_ViewIcon
    2S3S4S6S8S9S12S14S
DocumentG
$VersionOpt
Original by
ReviewStyle
Review by
LastEditor
Subject
Untitled
Subject
    6S9RS4E16RS9E22S25RS4E31RS9E32S33S2E37S40RS4E44R47S48S50S52S54S55S56S57S61S63S64S$48TitleX
Subject
Untitled
Subject
    3S4S6S8S
$46Created By,
$47Reviewer
Status
ReviewerNumber
ReviewerList
ReviewerNumberk
    3S4S5S6S7S8S10S14S18S22S
DueDateTimeDue&
Categori_ze
_Edit Document
Send Docu_ment
_Forward
Navigator
EnvName
NavigatorState"
    1S2S
EnvName
EnvName
EnvName
    0R11RS8E13RS20E14S20RS20E30RS8E32RS20E33S39RS20E44RS9E
New Document,
Document
    0S0E
Response,
Response
    0S0E
Response to Response8
Response to Response
    0S0E
_Move to Folder...
_Remove from Folder...
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$Comment
$ACTIONS
 $106Date4
$106l
    0S0E
$116D
$116l
    9S11S$121
$121i
AuthorName
Fromh
Anonymous
    1S2S16S
readers
PRIVATE:
ExpireDate
EXPIRED:
Subject
Subject
AuthorName
D2S0V
    0R4S8RS8E9S14RS6E17R20S21S23S24S25S27S29S30S31S32S33S34S35S43S
$122Topic
readers
PRIVATE:
ExpireDate
EXPIRED:
Subject
Untitled
Subject
    4S8RS8E9S14RS6E16S17R20S21S23S25S27S28S29S30S36S37S&
Categori_ze6
_Edit Document
Send Docu_ment
_Forward
Navigator
EnvName
NavigatorState"
    1S2S
EnvName
EnvName
EnvName
    0R11RS8E13RS20E14S20RS20E30RS8E32RS20E33S39RS20E44RS9E
New Document,
Document
    0S0E
Response,
Response
    0S0E
Response To Response8
Response to Response
    0S0E
_Move to Folder...
_Remove from Folder...
Mark/Unmark Document As Expired
(Mark/Unmark Document As Expired)
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$Comment
$ACTIONS
By Author
TextBox1 All Documents
Notes
Text7 By Author
By Author
Text8 By Category
Notes
ByCategory
Text9 By Review Status
Notes
ReviewStatus
Text11 Archiving
Notes
Archiving
Text13
Text14
GraphicButton3
kcR1)
Rck9JRc
)1!BR
cs{Z{
Bc{J{
!9JBs
1Rk9c
Rcs9JZ1BR
!))BZ
)9JRs
!1BBc
1Jc9Z{Bk
1R{c{
9Rs1Jk1JsBZ
GraphicButton4
?<;>M
KM;M;<>%h
)JLJL)
;(>.P
+S5J)
5L9LJ
LJ5L)
:"7:KSL
7:J(J5J5
5L5)JLK
*"L5K5)K)
mE=*=*:JK)K5L)
(SJ9JL9
:    =M#+
|k{gnj
qtqtq
qtqtq
t(tqt
t*tqt
kcR1)
Rck9JRc
)1!BR
cs{Z{
Bc{J{
!9JBs
1Rk9c
Rcs9JZ1BR
!))BZ
)9JRs
!1BBc
1Jc9Z{Bk
1R{c{
9Rs1Jk1JsBZ
?_?__
`!b`1
7`^///?
?b___
`bOOO
`<b!R
enNavigator]
Nav1 - A
Duffy/O=Iris
XticaG3
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$ViewMapDataset
$ViewMapLayout
$NavImagemap
By Category
TextBox1 All Documents
Notes
Text7 By Author
Notes
ByAuthor
Text8 By Category
By Category
Text9 By Review Status
Notes
ReviewStatus
Text11 Archiving
Notes
Archiving
Text13
Text14
GraphicButton2
kcR1)
Rck9JRc
)1!BR
cs{Z{
Bc{J{
!9JBs
1Rk9c
Rcs9JZ1BR
!))BZ
)9JRs
!1BBc
1Jc9Z{Bk
1R{c{
9Rs1Jk1JsBZ
GraphicButton3
M;<>%h
LJLJ)LJL
mc"7"
9)<LP
5J)J5L9L
:"!: 8LJ
59JLJF
m\"7"
5J5Fh
7:L(J5J5
5K5)5L)
)K)KI+
:=*:L
(9J9JL9
}kl{gj
qtqtq
t    tqt
t    tqt
t    tqt
t    tqt
kcR1)
Rck9JRc
)1!BR
cs{Z{
Bc{J{
!9JBs
1Rk9c
Rcs9JZ1BR
!))BZ
)9JRs
!1BBc
1Jc9Z{Bk
1R{c{
9Rs1Jk1JsBZ
vrv'v
?_?__
`!b`1
7`^///?
?b___
`bOOO
`<b!R
enNavigator]
enNavigator]
enNavigator]
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$ViewMapDataset
$ViewMapLayout
$NavImagemap
Review Status
TextBox1 All Documents
Notes
Text7 By Author
Notes
ByAuthor
Text8 By Category
Notes
ByCategory
Text9 By Review Status
Review Status
Text11 Archiving
Notes
Archiving
Text13
Text14
GraphicButton2
kcR1)
Rck9JRc
)1!BR
cs{Z{
Bc{J{
!9JBs
1Rk9c
Rcs9JZ1BR
!))BZ
)9JRs
!1BBc
1Jc9Z{Bk
1R{c{
9Rs1Jk1JsBZ
GraphicButton3
/    =-TM>M#@M
L)M)L
K;TM;<>%
:+(LJ)
:"7+"S
LJ9LJL5
5JLJL9LJ9L
7:KSL
:7!* 8J
5J59J9J5
7:J(J5J5
*"L5K5)K)
bE=:=*:JK)K5
(9J9JL9
:    =M#+
|kl{l
qtqtq
t    tqt
t    tqt
t    tqt
t    tqt
kcR1)
Rck9JRc
)1!BR
cs{Z{
Bc{J{
!9JBs
1Rk9c
Rcs9JZ1BR
!))BZ
)9JRs
!1BBc
1Jc9Z{Bk
1R{c{
9Rs1Jk1JsBZ
_IBMP
_IPCX
?_?__
`!b`1
7`^///?
?b___
`bOOO
`<b!R
enNavigator]
enNavigator]
enNavigator]
enNavigator]
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$ViewMapDataset
$ViewMapLayout
$NavImagemap
Nav5 - Archiving|Nav5
552Helvetica652HelveticaG3
CN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################
$$ViewTemplate for ByCategoryCD
CN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########
$$ViewTemplate for ReviewStatusCD
CN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######
$$ViewTemplate for AllCD
CN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################
Nav1 - All Documents|Nav1
552Helvetica652HelveticaG3
CN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####################
255D2116B7BDFECF1769F57E5917AA29Lotus Notes
Archive ProfileArchiveProfileArchive ProfileStdR46DiscCD
CN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
255D2116B7BDFECF1769F57E5917AA29Lotus Notes
(Archive Log)Archive LogArchiveLogStdR46DiscCD
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################################################
(ArchiveInstructions)(ArchiveInstructions)StdR46DiscC
CN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###################
(ArchiveProfileDlg)StdR46DiscCDw
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###########################################
(ProcessExistingDbDlg)StdR46DiscDCw
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################################################
(Mark/Unmark Document As Expired)This is for a Notes user only.303
StdR46Disc]@j
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###############################################
##########################################################
Archiving
TextBox1 All Documents
Notes
Text7 By Author
Notes
ByAuthor
Text8 By Category.
Notes
ByCategory
Text9 By Review Status
Notes
ReviewStatus
Text11 Archiving
Archiving
Text13
Text14
GraphicButton2
kcR1)
Rck9JRc
)1!BR
cs{Z{
Bc{J{
!9JBs
1Rk9c
Rcs9JZ1BR
!))BZ
)9JRs
!1BBc
1Jc9Z{Bk
1R{c{
9Rs1Jk1JsBZ
GraphicButton3
/=-<;>M
;TM;<>%
)JT;>M>@5
"7:!S5
L$J)<LP
:"7+"9J5L
L,J9L9P
5J)J5J9L
LJLJL
!:K9L
:"7: 8LJ
7:J(J5J5
5K5)5L)
)K5KI+
)KMKJ#
hE*:=*:J
(9J9JL9
qtqtqtqt
qtqtq
kcR1)
Rck9JRc
)1!BR
cs{Z{
Bc{J{
!9JBs
1Rk9c
Rcs9JZ1BR
!))BZ
)9JRs
!1BBc
1Jc9Z{Bk
1R{c{
9Rs1Jk1JsBZ
?_?__
`!b`1
7`^///?
?b___
`bOOO
`<b!R
istFlags$Updated
 to Response
risCN=Lotus Note
Xotes$$FormScript
to Folder...
$Collation1
($All)
($Profil
($Profiles)
lags$Updated
N=Lotus Note
$$FormScript
ollation1
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$ViewMapDataset
$ViewMapLayout
$NavImagemap
$$ViewTemplate for ByAuthor
Document
    0S0E
Document
    0S0E
EGCAw)
}{A@>)
)vwA{}
kkksss{{{
{sscZZ1))
scJ1!
sBZJ)
cRB!{c1
{{{k11)
CX Image
*.PCX
Interest Profile
    0S0E
    0S0E
    0S0E
imtl?
twrnof<
wy&sk
\6`:d<
dknsA
yogb\
sj`[0
IHy<8Z
01358b
usu&ruA
jfd;:
{{cZZ
{scZR
k{sR1)
Archive Profile
    0S0E
Archive Profile
    0S0E
Domino
ViewPreviousPage
d76c5
%eQPc$O#"
$P9:;?'
G>GVGB0f
g.WfGAU>G>?
98O#"`!
35$P:
;ePO53k
`K#O9
g.[]fH
AUA>';9O#K!
H^*BUA
"#P;>
.Z/GHF
K#P'RV
GIHF0F0F
-g.D[
v!3Q:>AB*
HF0F0F]
`58'?
F0F0F0FHIHI
GFH0\[ZC
C[E/]
?RP"k
`5P'UBI
0GF0\
[\0/G0
0F0HBA;P#k
v`"P'?
G0\[E
[/[0FG
IHFHI
`"$:?U
FGFHI0[
ID0F0F*HA?eO"!vu
*HY.I.+I/G\0FGFH0EGI]/0\
IFIFIG/
A>;8#
>?UYCIE
ZIC-/
EHGH[
Z+,YIY
c8;R?(+Y
0G+Eg-H+[/
Fg,G0
I    Y.]
D0GIF
GI+\I
;:Q#K!
(T@UVG
IF-.F.+
@>;:P$#`
k3#$4lR;A>
G    +,gI/
.HFI+C
&:9c5"k
k"4M8P:
Y+B*C
IF+,+Y
,+,+./
-HBH*C+,
4+N#"`n
HUBf*
HBXHG
>A&=?'
52a`n
n!kL47cO
;:;98
eQe;eR
O$O#5"3Kk!`
z4"5#76
cO7d$cN$cb7ON6
!!!999ccc
{k{skskcJB9
sJcR)
ccZRRJ11)!!
Archive Profile
    0S0E
Domino
ViewPreviousPage
Domino
ViewNextPage
Domino
ViewNextPage
7$"h#
B]@D}|
,+[*YVjX&:Uo!
-HC^D
:jr>@A\]E^RE
`R`.2P}|
>rX&Ug!
SRP}|~
    HNG12S`
YXjUo
U&X>@B]^.`
mMdPQRS
`^]BA)X&U!
XrA]_`J.Q
Q    RQ1Ndc
mLcO121
^]@)j
Q2Q2Q
SRQ21ONdw
JS`FA>:U
XB].J.
g:>BF
2Q2QSTST
cdO1QR
e2e2e
FAY:!
:Y]`SJ
g:YBF.Q
RQ1Pd
1ONMOP2Q
FA>&g
#j?F`
Q    2.J
gj)A]E.SJSTSTSTRQ0/bf1
PTRQNQP
]A)&o
j>@]F`J.
bm/N1
0T2PT
E]@Yj
bcL01
SLmTN0Tc/
1RLbQ
A@)&U!
/2RLb
_FEABYj&
&jYZAF]
`.bLRc/
RT0m/
TLlT2
T    QRTQ
:jXY?@
bcM/RN
0/mRS
.1JSJ._PR_.
GE^E]C
Z<(X:U
osx&:
@ABFA
ZA?ZY)Yr)jX&
j&XjX;VjYi
WVjWjiV:
%o#yzyq%y#
xzy7x
!!!RRRccckkk
JBBcZR
sscBkZ9
sskZJB1
RkZ)B1
{{s11)!!
By Author
Categori_ze
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From Folder
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
k]A<2
$TITLE
$Info
$$ScriptName
$Body
$ACTIONS
$$ViewTemplate for ByCategory
Document
Document
    0S0E
EGCAw)
}{A@>)
)vwA{}
kkksss{{{
{sscZZ1))
scJ1!
sBZJ)
cRB!{c1
{{{k11)
Interest Profile
    0S0E
    0S0E
    0S0E
imtl?
twrnof<
wy&sk
\6`:d<
dknsA
yogb\
sj`[0
IHy<8Z
01358b
usu&ruA
jfd;:
{{cZZ
{scZR
k{sR1)
Archive Profile
    0S0E
Archive Profile
    0S0E
Document
    0S0E
Domino
ViewPreviousPage
d76c5
%eQPc$O#"
$P9:;?'
G>GVGB0f
g.WfGAU>G>?
98O#"`!
35$P:
;ePO53k
`K#O9
g.[]fH
AUA>';9O#K!
H^*BUA
"#P;>
.Z/GHF
K#P'RV
GIHF0F0F
-g.D[
v!3Q:>AB*
HF0F0F]
`58'?
F0F0F0FHIHI
GFH0\[ZC
C[E/]
?RP"k
`5P'UBI
0GF0\
[\0/G0
0F0HBA;P#k
v`"P'?
G0\[E
[/[0FG
IHFHI
`"$:?U
FGFHI0[
ID0F0F*HA?eO"!vu
*HY.I.+I/G\0FGFH0EGI]/0\
IFIFIG/
A>;8#
>?UYCIE
ZIC-/
EHGH[
Z+,YIY
c8;R?(+Y
0G+Eg-H+[/
Fg,G0
I    Y.]
D0GIF
GI+\I
;:Q#K!
(T@UVG
IF-.F.+
@>;:P$#`
k3#$4lR;A>
G    +,gI/
.HFI+C
&:9c5"k
k"4M8P:
Y+B*C
IF+,+Y
,+,+./
-HBH*C+,
4+N#"`n
HUBf*
HBXHG
>A&=?'
52a`n
n!kL47cO
;:;98
eQe;eR
O$O#5"3Kk!`
z4"5#76
cO7d$cN$cb7ON6
!!!999ccc
{k{skskcJB9
sJcR)
ccZRRJ11)!!
Archive Profile
    0S0E
Domino
ViewPreviousPage
Domino
ViewNextPage
Domino
ViewNextPage
7$"h#
B]@D}|
,+[*YVjX&:Uo!
-HC^D
:jr>@A\]E^RE
`R`.2P}|
>rX&Ug!
SRP}|~
    HNG12S`
YXjUo
U&X>@B]^.`
mMdPQRS
`^]BA)X&U!
XrA]_`J.Q
Q    RQ1Ndc
mLcO121
^]@)j
Q2Q2Q
SRQ21ONdw
JS`FA>:U
XB].J.
g:>BF
2Q2QSTST
cdO1QR
e2e2e
FAY:!
:Y]`SJ
g:YBF.Q
RQ1Pd
1ONMOP2Q
FA>&g
#j?F`
Q    2.J
gj)A]E.SJSTSTSTRQ0/bf1
PTRQNQP
]A)&o
j>@]F`J.
bm/N1
0T2PT
E]@Yj
bcL01
SLmTN0Tc/
1RLbQ
A@)&U!
/2RLb
_FEABYj&
&jYZAF]
`.bLRc/
RT0m/
TLlT2
T    QRTQ
:jXY?@
bcM/RN
0/mRS
.1JSJ._PR_.
GE^E]C
Z<(X:U
osx&:
@ABFA
ZA?ZY)Yr)jX&
j&XjX;VjYi
WVjWjiV:
%o#yzyq%y#
xzy7x
!!!RRRccckkk
JBBcZR
sscBkZ9
sskZJB1
RkZ)B1
{{s11)!!
By Category
Categori_ze
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From Folder
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Info
$$ScriptName
$Body
$ACTIONS
$$ViewTemplate for ReviewStatus
Document
Document
    0S0E
EGCAw)
}{A@>)
)vwA{}
kkksss{{{
{sscZZ1))
scJ1!
sBZJ)
cRB!{c1
{{{k11)
Interest Profile
    0S0E
    0S0E
    0S0E
imtl?
twrnof<
wy&sk
\6`:d<
dknsA
yogb\
sj`[0
IHy<8Z
01358b
usu&ruA
jfd;:
{{cZZ
{scZR
k{sR1)
Archive Profile
    0S0E
Archive Profile
    0S0E
Document
    0S0E
Domino
ViewPreviousPage
d76c5
%eQPc$O#"
$P9:;?'
G>GVGB0f
g.WfGAU>G>?
98O#"`!
35$P:
;ePO53k
`K#O9
g.[]fH
AUA>';9O#K!
H^*BUA
"#P;>
.Z/GHF
K#P'RV
GIHF0F0F
-g.D[
v!3Q:>AB*
HF0F0F]
`58'?
F0F0F0FHIHI
GFH0\[ZC
C[E/]
?RP"k
`5P'UBI
0GF0\
[\0/G0
0F0HBA;P#k
v`"P'?
G0\[E
[/[0FG
IHFHI
`"$:?U
FGFHI0[
ID0F0F*HA?eO"!vu
*HY.I.+I/G\0FGFH0EGI]/0\
IFIFIG/
A>;8#
>?UYCIE
ZIC-/
EHGH[
Z+,YIY
c8;R?(+Y
0G+Eg-H+[/
Fg,G0
I    Y.]
D0GIF
GI+\I
;:Q#K!
(T@UVG
IF-.F.+
@>;:P$#`
k3#$4lR;A>
G    +,gI/
.HFI+C
&:9c5"k
k"4M8P:
Y+B*C
IF+,+Y
,+,+./
-HBH*C+,
4+N#"`n
HUBf*
HBXHG
>A&=?'
52a`n
n!kL47cO
;:;98
eQe;eR
O$O#5"3Kk!`
z4"5#76
cO7d$cN$cb7ON6
!!!999ccc
{k{skskcJB9
sJcR)
ccZRRJ11)!!
Archive Profile
    0S0E
Domino
ViewPreviousPage
Domino
ViewNextPage
Domino
ViewNextPage
7$"h#
B]@D}|
,+[*YVjX&:Uo!
-HC^D
:jr>@A\]E^RE
`R`.2P}|
>rX&Ug!
SRP}|~
    HNG12S`
YXjUo
U&X>@B]^.`
mMdPQRS
`^]BA)X&U!
XrA]_`J.Q
Q    RQ1Ndc
mLcO121
^]@)j
Q2Q2Q
SRQ21ONdw
JS`FA>:U
XB].J.
g:>BF
2Q2QSTST
cdO1QR
e2e2e
FAY:!
:Y]`SJ
g:YBF.Q
RQ1Pd
1ONMOP2Q
FA>&g
#j?F`
Q    2.J
gj)A]E.SJSTSTSTRQ0/bf1
PTRQNQP
]A)&o
j>@]F`J.
bm/N1
0T2PT
E]@Yj
bcL01
SLmTN0Tc/
1RLbQ
A@)&U!
/2RLb
_FEABYj&
&jYZAF]
`.bLRc/
RT0m/
TLlT2
T    QRTQ
:jXY?@
bcM/RN
0/mRS
.1JSJ._PR_.
GE^E]C
Z<(X:U
osx&:
@ABFA
ZA?ZY)Yr)jX&
j&XjX;VjYi
WVjWjiV:
%o#yzyq%y#
xzy7x
!!!RRRccckkk
JBBcZR
sscBkZ9
sskZJB1
RkZ)B1
{{s11)!!
Review Status
Categori_ze
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From Folder
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
iu0{>
$TITLE
$Info
$$ScriptName
$Body
$ACTIONS
$$ViewTemplate for All
Document
    0S0E
EGCAw)
}{A@>)
)vwA{}
kkksss{{{
{sscZZ1))
scJ1!
sBZJ)
cRB!{c1
{{{k11)
Interest Profile
    0S0E
    0S0E
    0S0E
imtl?
twrnof<
wy&sk
\6`:d<
dknsA
yogb\
sj`[0
IHy<8Z
01358b
usu&ruA
jfd;:
{{cZZ
{scZR
k{sR1)
Archive Profile
    0S0E
Archive Profile
    0S0E
Document
    0S0E
Domino
ViewPreviousPage
d76c5
%eQPc$O#"
$P9:;?'
G>GVGB0f
g.WfGAU>G>?
98O#"`!
35$P:
;ePO53k
`K#O9
g.[]fH
AUA>';9O#K!
H^*BUA
"#P;>
.Z/GHF
K#P'RV
GIHF0F0F
-g.D[
v!3Q:>AB*
HF0F0F]
`58'?
F0F0F0FHIHI
GFH0\[ZC
C[E/]
?RP"k
`5P'UBI
0GF0\
[\0/G0
0F0HBA;P#k
v`"P'?
G0\[E
[/[0FG
IHFHI
`"$:?U
FGFHI0[
ID0F0F*HA?eO"!vu
*HY.I.+I/G\0FGFH0EGI]/0\
IFIFIG/
A>;8#
>?UYCIE
ZIC-/
EHGH[
Z+,YIY
c8;R?(+Y
0G+Eg-H+[/
Fg,G0
I    Y.]
D0GIF
GI+\I
;:Q#K!
(T@UVG
IF-.F.+
@>;:P$#`
k3#$4lR;A>
G    +,gI/
.HFI+C
&:9c5"k
k"4M8P:
Y+B*C
IF+,+Y
,+,+./
-HBH*C+,
4+N#"`n
HUBf*
HBXHG
>A&=?'
52a`n
n!kL47cO
;:;98
eQe;eR
O$O#5"3Kk!`
z4"5#76
cO7d$cN$cb7ON6
!!!999ccc
{k{skskcJB9
sJcR)
ccZRRJ11)!!
Archive Profile
    0S0E
Domino
ViewPreviousPage
Domino
ViewNextPage
Domino
ViewNextPage
7$"h#
B]@D}|
,+[*YVjX&:Uo!
-HC^D
:jr>@A\]E^RE
`R`.2P}|
>rX&Ug!
SRP}|~
    HNG12S`
YXjUo
U&X>@B]^.`
mMdPQRS
`^]BA)X&U!
XrA]_`J.Q
Q    RQ1Ndc
mLcO121
^]@)j
Q2Q2Q
SRQ21ONdw
JS`FA>:U
XB].J.
g:>BF
2Q2QSTST
cdO1QR
e2e2e
FAY:!
:Y]`SJ
g:YBF.Q
RQ1Pd
1ONMOP2Q
FA>&g
#j?F`
Q    2.J
gj)A]E.SJSTSTSTRQ0/bf1
PTRQNQP
]A)&o
j>@]F`J.
bm/N1
0T2PT
E]@Yj
bcL01
SLmTN0Tc/
1RLbQ
A@)&U!
/2RLb
_FEABYj&
&jYZAF]
`.bLRc/
RT0m/
TLlT2
T    QRTQ
:jXY?@
bcM/RN
0/mRS
.1JSJ._PR_.
GE^E]C
Z<(X:U
osx&:
@ABFA
ZA?ZY)Yr)jX&
j&XjX;VjYi
WVjWjiV:
%o#yzyq%y#
xzy7x
!!!RRRccckkk
JBBcZR
sscBkZ9
sskZJB1
RkZ)B1
{{s11)!!
($All)
Categori_ze
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From Folder)
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Info
$$ScriptName
$Body
$ACTIONS
($All)
TextBox1 All Documents
($All)
Text7 By Author
Notes
ByAuthor
Text8 By Category
Notes
ByCategory
Text9 By Review Status
Notes
ReviewStatus
Text11 Archiving
Notes
Archiving
Text13 7
Text14 X
GraphicButton5
kcR1)
Rck9JRc
)1!BR
cs{Z{
Bc{J{
!9JBs
1Rk9c
Rcs9JZ1BR
!))BZ
)9JRs
!1BBc
1Jc9Z{Bk
1R{c{
9Rs1Jk1JsBZ
GraphicButton4
-<M>M
K)MTMT<>%h
LJ<)T
J)<LP
5J)J5L9L
yc!:7!
:"!: 8LJ
c:7'"
7:L(J5J5
5K5)5L)
)K)KI+
E*:=*:L
(9J9JL9
|k{gnj
qtqtq
t    tqt
t    tqt
t    tqt
t    tqt
kcR1)
Rck9JRc
)1!BR
cs{Z{
Bc{J{
!9JBs
1Rk9c
Rcs9JZ1BR
!))BZ
)9JRs
!1BBc
1Jc9Z{Bk
1R{c{
9Rs1Jk1JsBZ
W49F/V0
vrv'v
?_?__
`!b`1
7`^///?
?b___
`bOOO
`<b!R
otes$$FormScript
to Folde
($All)
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
%|Q~.4Zh
P$Z![
$ViewMapDataset
$ViewMapLayout
$NavImagemap
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
_{$t^
$TITLE
$Info
$Body
Times New Roman
Archive Profile
(WebArchiveSave)
(WebArchiveOpen)
'++LotusScript Development Environment:2:5:(Options):0:66
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
Declare Sub ProcessExistingArchiveDB
Declare Sub ProcessNonExistingArchiveDB
Declare Sub ProcessArchiveDbExists
Declare Sub CreateNewArchiveDB
'++LotusScript Development Environment:2:5:(Declarations):0:10
%INCLUDE "lsconst.lss"
Dim s As NotesSession
Dim w As NotesUIWorkspace
Dim db As NotesDatabase
Dim existingdb As NotesDatabase
Dim archivedb As NotesDatabase
Dim view As NotesView
Dim note As NotesDocument
Dim profile As NotesDocument
Dim archivedoc As NotesDocument
Dim doc As NotesUIDocument
Dim DocWasSaved As Integer
Dim DoNotClose As Variant
Dim ExistingServer As String
Dim ExistingPath As String
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize

End Sub
'++LotusScript Development Environment:2:2:ProcessExistingArchiveDB:1:12
Sub ProcessExistingArchiveDB
an existing archive already exists and the user has choosen to create a new one
this function gets called on one of two occasions
either the document has a value in the tmpArchivePath field
or the user entered a server and path that has an existing database
we need to handle both cases
%END REM

End Sub
'++LotusScript Development Environment:2:2:ProcessNonExistingArchiveDB:1:8
Sub ProcessNonExistingArchiveDB
     On Error Goto ProcessError
     On Error 4005 Goto DbCreateError
     'render the dialog box to get the location of the archive database
     If (w.DialogBox("(ArchiveProfileDlg)",True,True,"Specify New Location")) Then
          'see if the archive database exists
          Set archivedb = New NotesDatabase(note.ArchiveServer(0),note.ArchivePath(0))
          If (archivedb.IsOpen) Then
               Msgbox "Database already exists. Enter a new location"
               ProcessNonExistingArchiveDB
          Else
               Set archivedb = db.CreateCopy(note.ArchiveServer(0),note.ArchivePath(0))
               archivedb.Title = db.Title & " (Archive)"
          End If
          Call doc.Reload
          Call doc.Refresh
     Else
          note.ArchiveServer = ""
          note.ArchivePath = ""
     End If
     Exit Sub
DbCreateError:
     Select Case Msgbox("Error creating archive database. The server may be down or you don't have access to create new databases on the server. Click Yes to try a different location now or No to cancel.",36,"Error")
     Case 6
          ProcessNonExistingArchiveDb
     End Select
     Exit Sub
ProcessError:
     Msgbox Error & " - (ProcessNonExistingArchiveDB)"
     Exit Sub
End Sub
'++LotusScript Development Environment:2:2:ProcessArchiveDbExists:1:8
Sub ProcessArchiveDbExists
     'this function gets called if a database already exists in the tmpArchiveServer field
     'render the dialog box to get the location of the archive database
     On Error 4005 Goto DbCreateError
     If (w.DialogBox("(ProcessExistingDbDlg)",True,True,"Specify New Location")) Then
          On Error Resume Next
          'see if the archive database exists
          Set archivedb = New NotesDatabase(note.ArchiveServer(0),note.ArchivePath(0))
          If (archivedb.IsOpen) Then
               Msgbox "Database already exists. Enter a new location"
               ProcessArchiveDbExists
          Else
               Call CreateNewArchiveDB
               archivedb.Title = db.Title & " (Archive)"
          End If
          Call doc.reload
          Call doc.refresh
     End If
     Exit Sub
DbCreateError:
     Select Case Msgbox("Error creating archive database. The server may be down or you don't have access to create new databases on the server. Click Yes to try a different location now or No to cancel.",36,"Error")
     Case 6
          ProcessNonExistingArchiveDb
     End Select
     Exit Sub
End Sub
'++LotusScript Development Environment:2:2:CreateNewArchiveDB:1:8
Sub CreateNewArchiveDB
     On Error 4005 Goto DbCreateError
     On Error Goto ProcessError

'first, create the archive database
     Set archivedb = db.CreateCopy(note.ArchiveServer(0),note.ArchivePath(0))

'if the profile says to copy new documents, then copy them now
     If (note.CopyOptions(0) = "1") Then
          Set allDocs = existingdb.AllDocuments
          For i = 1 To allDocs.Count
               Set archivedoc = allDocs.GetNthDocument(i)
               Call archivedoc.CopyToDatabase(archivedb)
          Next
     End If

'if the profile says we should delete the original archive database, then remove it
     If (note.DeleteOptions(0) = "1") Then Call existingdb.Remove

     Exit Sub
DbCreateError:
     Select Case Msgbox("Error creating archive database. The server may be down or you don't have access to create new databases on the server. Click Yes to try a different location now or No to cancel.",36,"Error")
     Case 6
          ProcessNonExistingArchiveDb
     End Select
     Exit Sub
ProcessError:
     Msgbox Error & " - (ProcessNonExistingArchiveDB)"
     Exit Sub
End Sub
 Archive Profile'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
Declare Sub Postopen(Source As Notesuidocument)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As NOTESUIDOCUMENT
     Set Source = Bind(Objectname_)
     On Event Queryclose From Source Call Queryclose
     On Event Querysave From Source Call Querysave
     On Event Postopen From Source Call Postopen
End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)

     If (DocWasSaved = False) Or (profile Is Nothing) Or DoNotClose Then Exit Sub

     ItemList = profile.Items
     Forall n In ItemList
          profile.RemoveItem(n.Name)
     End Forall
     note.CopyAllItems profile
     profile.SaveOptions = "1"
     profile.save True, True

End Sub
'++LotusScript Development Environment:2:2:Querysave:1:12
Sub Querysave(Source As Notesuidocument, Continue As Variant)

     DocWasSaved = True
     DoNotClose = False
     If Not(profile Is Nothing) Then note.SaveOptions = "0"
     If (note.ArchivePath(0) = "") Then Msgbox "You will need to specify a location of the archive database before you can archive documents.",16
     source.Reload
     source.RefreshHideFormulas
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)
     'initialize global variables
     Set note = source.Document
     Set w = New NotesUIWorkspace
     Set s = New NotesSession
     Set db = s.CurrentDatabase
     Set view = db.GetView("Archiving")
     Set doc = source
     'turn off auto reload to make processing faster
     source.AutoReload = False
     'if this is not a new doc, we don't need to continue
     If Not (source.IsNewDoc) Then Exit Sub
     'get the existing profile
     key = "Archive Profile"
     Set profile = view.GetDocumentByKey(key,False)
     If profile Is Nothing Then
          'an existing profile was not found
          note.ProtectFromArchive = 1
          note.ExcludeFromView = "D"
          note.From = "Archiving"
          note.Subject = "Archive Profile"
          note.Categories = "(Archive)"
          Call note.ReplaceItemValue("_ViewIcon", 11)
          source.reload
     Else
          'copy the profile fields to this document
          ItemList = note.Items
          Forall n In ItemList
               note.RemoveItem(n.Name)
          End Forall
          profile.CopyAllItems note
          source.Reload
          If source.EditMode Then source.Refresh
     End If

     DocWasSaved = False

End Sub
K     ,`
    Subject used for displaying the form name in the views
Archive Profile
Subject
    Used for returning information to the user when the form is saved on the web
$$Return
STS)TST
S)T)TS)
)SdSdS)d
)S)S)
)T)TSdT)Sd
)SdTdS)T)T
S)dSd)S)dSd
S    )5dSdST)T
S)SdSdT)STc5c
d)S)dB
d    5Sd5)Td5S
)d5d5d5d)5
dSdS)Td)d5ST)dS
ScdS)S)
    XWXcY5YSY
5BT)d
5d)dS
SBSdBSd5ST)5TS
Sd)Sd)dS)Sd)d)Sd5d
5d)S)ST)T)
SdSc)cmcS5d
BcBmcdmBSc5c5B5B
5dSB5
cBcdcBcBc5Bm5m
SdB5dcd5dBS)cd
Sd)B5T5)S)dS
cYc5SY5
)S)dS)
dSd)S5S
SB)dS)S)d
Sd5BcdSBcBcB
d)mdc5B
Bdcdc
S)S)SB5d5BcB
)TcdSc5d)Yd5dBdBcd5d5m5
5d)mBmdm
cmJ5dc
m    SBm5mcdl5
BcmBcB
mBdSd5J
ml>lB
X,_f6*WlcYc
_h VWl
)d)ST
)SdTdSdcd5cdB5
BcBdSd5BSBd5dYBdSmBdS)BS
c)cdSm
BdmcmJ
)SdSmcd)dS5
5BdSdm5mdm
m5SJd5dm5cBdcdBcBcmc
Jcm5dSdBmcBc5lmJmJ
/lCK>K
l>mJc
/m5cldmCm
n>cmKcmJ5BJBmBlc>l
J>mJ>5BSlCT
Z`i+? DWC
]i+f6*
cm5dY
d)S)TS)
d(BSBcB5Bc)BdSdB
Bm5Bd5m5BdScBdTBd5m5Sm5mB
B5mBSdB
JB)mJlmK5c5
KBmB5cJl
B5lJlBm
BmBl5BdmcmB5mB
5    Scm5mB>ml
lJKCK
B>LKLC>LKDv
DCD>lClm>m
KlJ>KJ
    ,b-^Eh D*
J>KC>KnCqf_,
+f 6*>l
S)d)S)S)dS
ScBd5c
SdBcB
BSBSm5c
d    BKlm
c5cB>mB
Bm5cJmJK>K>m5c
mJStJlBm
Bm5dBc5J
l    5mBlKJcBl
KJc5B5
mJKJcmKJKv>K
*Xl*qf
mclJvn>n
C    q *Xn qLM
lJmKL
XW*fDVCMDL
LC/D*Df
_<E?fDq*
XWlXY
dY5d5S
BSdB)dSdB)c
m5c5Bdmlm
B5B5mBlJSmc
>    KmBlBcKmc
Bc5cBcK>tKJl>mJ5J
KJ>JlJv>J>JvKm
mKvKv
JmlJK>mcmc5cmJBl>vKm>mKv
 Ef"xDL!v>
YhR"6L
LvqLY
Z1Dn*>LK
ZsEfD
KL>K>lL
F<_E?;DC>m
SZDXl>m
cBYBd5T)
TdSdB
mBm5c
>JtncBcBm>KmcmcJ
m    d)5c
K/LKv
BJLmJmLJMKJt5KJdLK>JL
m>5cBJKvLJLMJ
f_1?x*nmKm
]i+?DM
iFE;qL>K
_ih?"D*L
CLMD8qY
*n>m/6Y
Vjhzf
h[fD6>*lm
JmBcX
m5dBYS
T)5dc
cBd5B
cml>J
Jm5KcBK>mKm
mKmcmJcB>lJKJ
LJvLvLm
lBJvLK
>mLJK
LBvK>m
mKm/Lvdm
>tJmLm>L
LtmJL
mJ>tcLBdlm
tlc5dKd
cmKJLl
L>Y6h
ojO Cn
BKJmJlMS
_-F?zDnMLxKLvC
RC8M!8"M!R
=|@$F0N;xCL>
UV,jFX
V`j+ 6DLK
S)dBS5
STSdc)dSd5SBcBcYB5J>5J>
BcJmdBlJ
JlJK>
mlBmK
m    KmcBcBJlK
vKLmKvK
>mB5J5BKJvm5m
Jm>JKmB5dJ
Jm>J>KvJmJLKmL
vLKJL
mMvKJMvmJLcmL
JlmLvlmB
m>B>Jv
tLKM>xE$k=rw
.GFh6Cn
mJlKx
aw-r|jh?qCKLvLxMY
HpGE?;DM
l>lv T
Vr,sFRN"R!R8!N"1
$F1?;LCMnLM
poiF?6*Cnv>
^,[f *l/
Jcd5mdmcmc
)SdBdmdc5BcdJldc
mBc5lJvlKvc
Km>JLmlLcmK>m5
>BmKLvlJ
lmJvKLKvLm>lK5
J    KmL>mMLJm
LvLMKJL
KMLJmKvmJLlJ
JmKJmlKmJmKlL lYU
Y.pGEfD
>LKLK>D
\Ia.pHkFh"Dn>
_.=Ab
^7g{_
V7p@OE?R1;9;>
G%H|+
?"!LCLD?T
h DCLlLmJlX
,ojf D
cB5Bc
TdBd5dBmcB5cB
BdBlBcBlclKv>vKmKv
KLvLJLJ
KmKmvJ
cBmKJKmJKv
JBl>m
K    mvmKvJKvL
mJLKLxtJLvm
lmJKml
Blm>JtmK>KnS
wr|j? *l>tLlKL*
Ta.=Ho
<jFE"NDCDL"C"*S
D!8q?
WerH@
`b,Ef *DLKmJ
BJcBmB
ST)Bc5dBcJcmJd5
>JKm>JKv5mcmJl
KJ>Jml5JKvl
BmJKLvmKv
JMLvLvL
mJmJ>t
/KlKJKcL
>lmBld5BmBcKtmKL
KmJ>JKv
lmLvLvL
vLvLJKlmBlJ
JKmLlKv
_yAH<hqCxMlJKlDX
|@_E?DqMm>m>C*
x8"8D;WYXY\e7Aw6YXY,I3=:
T:#18"8M!E
.    p@_RNxDLK
7rojfq*Mvl>
)ScBc5cm
5mBKm>JKtKlJmc
vKm>J
>KJKJm>JKv
KJtJL
mJKmJKl
vLmtvKm
BJvLKvJK>Jm>JvJKLvLK
a7a=<+qDMLvL
Zw.=pkuOFRx!nM>JKxq
ApH-2$<1OR
NR"N"E
I3%|P
X:41R"R"
yap|GsF?qnK>
7abkFE *nL>JcC
T)TdB)dcm
>mlBlJmBKmc
KLKJK
>m>mBvKvBK
KLJlKJmLJc
Kv>cJ
v>BvLJKLBmB
lBLvK
LJLvKvKt
mLvLvJ
KvLlJmJ
5mKLKmL
}w.=<~f"xLJtMlD
^.r=GP_hz"DnK>t>ln
H@G@#F
1EN";
3A&Q*
6    'w3H2$~
7yroGuFf8xL
e7rap`<jE"q>
m    SdSdSd)S)
B5mBcKdmJBJm
JmBmJ
vmJ>mLJmKvKm
KLmMKv
v    5cJKvKBJm
LvKJKmKL
cmltJ
JmJmKJ
5cKxmvc>
K>JKmJlJKd
L    vxvxLtJvK
vKtm>m
KmBKvm
W}7A|iO;nxK>m
    r.p|kFEfD
x+>xlJKn>D6
 YX+3
H2;*Y
^ger-@$ENxLMmK>m>Cq
rpG<F nDv
n    Lmcm
    mBc5d5dBS
m5)m>
cJ>B>mB
Kv5Bc
BJm/v
vJBLvLvL
mKmJcv
JKJKLlvmKcL
cKvJv
JKvBvKLvJ>lJlLvJKB
{wrG<O
nJnMvM*
er=kj[;6CMK>LKlJmMqE*
V}7.p,sFR?
M    K>Jl>KL;W
    ,p-@jE?qD
d5)d5S
dBdSBd)
m5m5J5mJ>J5cBm
tKJmJmc5mBKJKLm5mL/vK
vLK>JK
JmKJv
LJKtL
mJ>mK
mJmJKmKc
JmLcmJcBmKL
tJvLmB
xLvKvLvKmKMLmL
KLvJKmJB
_yAGi$ORxMLKvLvY
XAr,<_f?DC
mxKv>KC"?@E6
Ypy.p-iEF?n
vcKJlmnDh]
ap,sEf6
lmBSB5S
ScB5c
dSc5J>
dBdBJKm
m>JvK>Bd5mlJcBKJvm
vJvmLJ
5m>BKBvBKJLmBJt
JL>m>KJLKvKLKvKLJmJmJvK
JvKMvJKL
JmvLMvLvLKtKLtKmJKL
xF@<`a
.    wy7wr=|uO
D"OGH=bG@_h; *Mmv/vLKBLxM?#@%
p`@jhNxDLnKLvKJ>KD"Fk^Z
ap`jEf6*v>
m5mcmSmTS)
)d)SBS5dT)TU
BdSdSBS
BYSBlcm>K5mJlJltd5d5mJBcml
mvJKmLm5>JKJKJm
B5dlL
m5BcBcJ
K    JvKmBKLtJ
vJvKvKLvJ>mK
JmLvJK
mvmKcJn>D?EiG
|@EO MxL
zEsGuiF+f 6lMc
JLtLmC!N1$@H
GHo-i
K    BlnDfE,ob
i[Z nW>m
)S)ST)
TSTSTST
)dc)cB
d5d5mJcJdm>B>cJmdS5d5dc5Bm>m
lm>JmK5B5Bm
K    lK>dKmc>v
KvJMKJ
J5mBmLvJm
mJLBmBLvKvK
LmJm>JmLJmM
mJKmKLD
sji,@
G#<$F1?zMxKLtvKvL"N?hOFE? nWlvKcmKvJm
F_hf n*DlJ
>lC;EFjk-k^<hf V
TdS)S)
S)d)5)dS)S)SB
S)dSB
md5B5Jl
Bc5mlJ
JmKJcm
c5mJmJ5mJl
mvJBmK
vKLvKl
lKJcmKm>
KJvLmJ
KBKmK/mJmK
KvLB>ml
tKlJK
vLnMzEfE1s
E    hFER?x"vL
q    Df;fD6M*
B5mJK
KD8N91#$
#1EFEh?6 DWm>lJm>
5cBYc*C]
]*VYXdY
S)TUTS
S    d)dS5dm5B
)5SdBcBcBm>
JBcJld5Jc5B5JBKJc
JKJmBLml
mJBKmlBmJK>JKJv
v    KLKvKLJmc
NfE ?q?
CDnD6MDLnm
J>mLMCM8
;? ;6
Sd5dYmX*nV
V6 VWXl
)TS)TS)S
Bd)S)BdS)S)
d5d)5S5m
l)Sm5m5
B    dlclmKJcB
cBJmc5lJ
Km>B>
JBJ>m5
JmJmKc
mclK>vKl
qM6nx
lLmJn
LD;NR
n*nlcBdc5Yc
*W*WX
S)5Bcm
5)Bm5m5c
>mKJlm
JcmJKB
Ktl>l
KnDnLC*
mlmnLn>lc
Kl>ldcSm>K>
!"N"R1;
*>lmXc5S
SY5Yd
dSB5BSd
STdSd
B5d5B5d5d5c5dScd5
5d)cBlcB
dBdBd5d
mBmlcJB
mc5B5c5Bd>m>JlJ>lKl
clmlKt*KclK*J
LD!"?01
)S)S)TS
T)T)S5T
)TdS)S)d
)S)S)S)dS)SdSdS)S5dcB5cBd
SB5cSd5BmSc
S    dS5Scmlc5
Bd5mJ
Bdm5d
>5c5Bl
5mcB5
mcBmBcmc
08?09#1?
1#F    0
)STd)
Sd)S5c5Bcd
dB5)d
c    )BS)T5B)5
B5)Sd)d5cS5B
BcdSdB
d5BcB5Sc
m"YSBdScSBmSBcd
dm5BcBcB5Sdc
"0?"!D6L*6
;"?";
)ST)T
dSd)d
)d)T)TS
dBS)5
dBc5dT
5d5)S
TSB)d
dS)B5c5Bdcd)dS)S)d5dT5B5c5d
B5T)T5Scm
)STdTdSd
dS5dS)Y
dSdSTdTS
)dS)S)T
)SdSdSdT
)S)TS
STS)ST
5Y5Y5
kZ{cR
sckZJ
 Profile"
Archive Profile
    0S0E
G*{yB
?ByG~,
;uAEG
xE{GM
By{F|
A?v(?
skZRJ9
RcR!!
{k1ZR11)
ZZRRRB
kkkkkkkkkkkkkkkk
Edit Archive
/(ArchiveInstructions)?OpenForm
C|NRW
ulowuv
}|C$/
%klko
!!!999RRRccckkk
{sscZZ1))
{skskc
{1)!ZJ9
cZR1JB!
{RRJ11)!!
kkkkkkkkkkkkkkkk
Document Instructions
ModifyArchive
    0R4S
Archiving
    0S0E
AxH|~
JLKJ}
111ccc{{{
ZRRB999111)))!!
RJB1)!ZJ9)!
{kkcRRJ991kkZ11)99)
        ([FileCloseWindo
Terminate
Close
/WebDelete?OpenAgent&
UNID"
    0R10S
{E,FCwvu*
?BwI|
;>AwI
A?*s?
{skZRJ
kRB)B)
{kcZJ
{{sssk
t Profile"
Delete
/(ArchiveInstructions)?OpenForm
C|NRW
ulowuv
}|C$/
%klko
!!!999RRRccckkk
{sscZZ1))
{skskc
{1)!ZJ9
cZR1JB!
{RRJ11)!!
Document Instructions
ModifyArchive
Periodic Archive
    0R4S
    0S0E
Bqo=<:i6
36i<n
p{IOT
Dpl9g
3h9lnA
JI{xwCs
Submit
Archiving
    0S0E
AxH|~
JLKJ}
111ccc{{{
ZRRB999111)))!!
RJB1)!ZJ9)!
{kkcRRJ991kkZ11)99)
        ([FileCloseWindo
Terminate
Close
     Select Document Archiving Preferences
    vate
ArchiveExpired
Archive Expired documents | Yes
    after
ExpiredLife
Number cannot be negative.{
    3S4S6S11SExpiredLife
      days
ArchiveInactive
Archive documents which have no activity | Yes
     after
DocumentLife
Number cannot be negative.{
    3S4S6S11SDocumentLife
      days
ArchiveLog
Generate an Archive Log each time an archive occurs | Yes
        -
IncludeDoclinks
Include document links | Yes
     Archive Profile editors:
profileeditors
    0S0E
ProfileEditors
archivepath
    0S0E
     Archive Server:
ArchivePath
ArchiveServer
Local
ArchiveServer
    3S4S9S10S12S
tmpArchiveServer
     Archive Path:
ArchivePath
tmpArchivePath
     Archive Server:
tmparchiveserverweb
archiveserver
    0S0E
tmpArchiveServerWeb
     Archive Path:
CurrentPath
    1S2S6S
CurrentFile
CurrentPath
    0R1S2S6S
FileOnly
CurrentPath
CurrentFile
Macintosh
CurrentPath
CurrentFile
CurrentPath
CurrentFile
CurrentFile
    0R1S2S8S11S15S18S19S20S21S22S26S29S33S36S37S38S39S40S44S47S51S54S
DirOnly
CurrentPath
CurrentFile
Macintosh
CurrentPath
CurrentFile
CurrentPath
CurrentFile
    0R1S2S8S11S15S17S18S20S21S22S23S24S28S31S35S37S38S40S41S42S43S44S48S51S55S57S58S60S
DirOnly
FileOnly"
CurrentPath
    0RR1S2S5S6S8S10S11S15S
This validation field returns HTML as a result of the validation failure.
resource strings..
    0R1S2E
AllDoc
All Documents
    0R1S2S
ByCat
by Category
    0R1S2S
ByAuth
by Author
    0R1S2S
Archiving
Archiving
    0R1S2S
PrevDoc
Previous Document
    0R1S2S
Message
You must enter an Archive Path.
    0R1S2S
Get the name of this database.
    0RRR1S
    0R1S2S10S
existingdoclink
<b><a href=/
/ArchiveProfile?OpenForm>
PrevDoc
</a></b> |
    0RR7S8S9S10S
Failure
Message
 </h2><hr><br>"
    0RR1S2S3S4S5S6S
Anchors to discussion views.
    0RR1S
TopicView
<b> <a href=/
/($All)?OpenView>
AllDoc"
</a></b>
    0RR1S2S3E3S4S5S6S7S8S9S10S
CategoryView
  | <b><a href=/
/by+Category?OpenView>"
ByCat
</a></b> |
    0R1S2S3S4S5S6S7S8S9S10S
AuthorView
<b><a href=/
/by+Author?OpenView>"
ByAuth"
</a></b> |
    0R1S2S3S4S5S6S7S8S9S10S
ArchivingView
<b><a href=/
/Archiving?OpenView>"
Archiving
</a></b> <hr>
    0R7S8S9S10S
Assemble the HTML to be returned
    0RR1S
failureMsg
Failure
ExistingDocLink
TopicView
CategoryView"
AuthorView"
DateView"
ArchivingView
    0R1S2S2E7S8S2E9S10S11S12S13S
NewDoc
Notes
tmparchivePathWeb
failuremsg{
    0RRtmpArchivePathWeb
ModifyArchive
archivepath
    0S0E
ArchiveHelp
An existing archive database has been specified.  Please use the following options to specify what should be done to the original archive database.
ArchiveHelper
CopyOptions
Copy documents from the existing archive to the new database|1
DeleteOptions
Delete the existing database|1
    0S0E
Submit
Categori_ze
_Edit Document
Send Docu_ment
_Forward
Close
    0S0E
Save Profile
    0S0E
Specify Archive Location'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

'see if an archive database already exists based upon some field values
     If (Len(note.tmpArchivePath(0)) >0) Then
          If (note.tmpArchiveServer(0) = "Local") Then
               Fullpath$ = note.tmpArchivePath(0)
               ExistingServer = ""
          Else
               Fullpath$ = note.tmpArchiveServer(0) + "!!" + note.tmpArchivePath(0)
               ExistingServer = note.tmpArchiveServer(0)
          End If
          ExistingPath = note.tmpArchivePath(0)
          Set existingdb = New NotesDatabase(ExistingServer,ExistingPath)
          If (existingdb.IsOpen) Then
               Select Case Msgbox("The database (" + Fullpath$ + ") already exists. To create a new database, select OK, otherwise click Cancel",33,"Database already exists")
               Case IDOK: ProcessArchiveDBExists
               End Select
          Else
               ProcessNonExistingArchiveDB
          End If
     Else
          ProcessNonExistingArchiveDB
     End If
End Sub
InstructionsF
(ArchiveInstructions)
    2S4S
_Move to Folder...
_Remove from Folder
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
>7GL?C>
DocLife
ArchiveDate
ObsoleteLife
$ManualArchivers_O
$TITLE
$Info
$WindowTitle
$WEBQuerySave
$WEBQueryOpen
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
ExpiredLife
DocumentLife
$Body
$ACTIONS
$SCRIPTOBJ_6
Times New Roman
Archive Log
 ArchiveLog
$MessageType
X    WXWXWXWXW
X    WXWXWXWXW
WXWXWXW
XWXWX
(W(W(
(V(V(VdVdV(0
(dV(V
V(W0V(W
(WV0Vd0V(dV0(
(V(W(WV(V(
dWV(VW(
V(V(V(
W    0W0V(V(W(
V(W(W
d(W(VWB0c0B0(d(0B
0d0Vd0(Wd0(cVB0V
0V(dVdVdV(
d(0d(WV0V
(VW0V
(WV(d(
(VW0d
W(d(V0
B(dV(
BVdBV
V(W0W
V0V(0(0VW(
W(VW(V0d(VW(W(W
VdV(Vc(d(VdV0d
0VBVBmcd
BcBmcdcBVc0c0cd0
B0V0dcBc0BcB0cBcB0md0VdBd0cd0dB
0    (dVB0W0(V
Vd(V(VWV
W?(V0d0(V0(0d0d(W(d0dWd(0(V(c(dV(VdV(0VBmBdV(V(d0BcdVBcBcBcBd(mdc
V(V(Vc0d
W(cdV
Bdc0Bcd0d0m0
0d(mcm0m
cmK0dcKmV0m0
0cmBcB
BmBdVd0K
mK>lB
Y^_]e)
>cZcd0dBcB
Y0Z0cBV(V(V(Vd(VW
(VW(@
dcd0cdB0
d0dcBd(mB0V(0V0d
c(cd(mV
(Vd(mcdVd(B
0BdVdm0m0m
mdVm0d0m0cBdcV
VdcmBcB0lmKmK
NmBcl0
ClcKNcml0cKBmcm
Kld0V
[2^Eg o)Cm
lmlBcmc0c
1^g )
V0(V(W(WV(V
0(Vd0dVBc0B0c(BdVd
dm0BdVc0dWBd0mdVmBcB
B0mcVdBZ0d
KB(mKlmN
NcmB0cK>
>cVBd0B0lKlBm
BmcK0ZBmcmB0mB
cm0mB>ml
lKNCN
CPxPoDOC>N>mc
B>ONOClONoO
Oeo>lO
>mBcB
>CDON
+bG^E\: e>l
mKl>o:si^Eg[1e
cmYlc
Bd0Vd
XWXWXW
BcB0Bc(cBd0c
BmcBVld
B(BVm0mV0B>umcNKmC
Bm0BKmK>
VlKlBm
Bm0dBc0K
B0mul0mBlNKcBlB
NKcdB
mKNKcKNKNU>Ncm
mclKUCN)Ce: )YC :
lYle:e
O    mNlNd0dC
s:1OC
lmlO>
NmlCl)[:\jE:[eo
(VZ0dBVd0Bd0Bd0VdB(c
m0c0c0mK
KB0BdmBlKdm
N    uNK>lmK0K
m    clmNlKNK>
K    >U>K>KONm
KclCUNO
mNUCU
N>mBmc0cmKBl>UNmKmNOuNON
oO!U>mUN
:eO>N
]+E?DeO>Om>mdN
Ej*g:De)l
):D:DZ
l>mcl
0Bd0B
mBm0c(dVd
>KuNcBcBm>NmcmBl
lKlmK
BlUm>mUlPNm>0NKdUN>KO
m>BcBKN
:_F?")Cl>m>NmP>C
;E?DPO
    ijs:xOl>0
V    j@_Q?O)Cx
>KN>PC
nGjF?e)O
>mcKm
m0dBcV0V0V0dWV(
(V(VW
cBd0B
Km0NcBN>mNm
cK>lNK
O    NOxKmOKN
UcU>Nmcm
mNmNUNdm
mOm>x
xNm>xN
Bcm>Km>KNmxBdlm
ulB0dNd
mNKxK
O>Z1g
njRoeCl>BNlK
_kE?7oCxPxNxNC
QCPOx
pk;Fs
oO>Cl
)`jg exON
V^p`Z
cmcB0V
Bd0V(d0(
VWV(cV
VBc0c0c0K>0K>
KmdBlK
mlBmN
BcBK>N
KmNlK
UxmlOUOP
xmNUuO
xmUxONmB0K0cNlUm0m
NmB0dK
U#NmxKlmPUNKPUmNUcBxKlKlBxOlmB
m>BlKO
KxNPl"ELk<qw
AGjge
KmK>C"
aIkqHtg?:C>
{HGs:PeOm>
x>Cl"YW
bkvF:?o)N>O>xP1
Wp2iF?1)
O>c>uC
^i\: )lN
KcdBmVmcmcB0(
d(d0Vd0Bd
dc0BmdKldc
KOBmBc0KlUlNUc
mu>m0N>K>N
>mcUOU
K    UxPUxlKBP
UxUNK
xm>uN0
K    >mx>mPxKm
mlUlK
>NmKcNlO lZX
YrpGE:o
>ONONlo
]hraqH@_g"oC>OxPxQX
`G;g?eP)
W_    #=^
<GE] ?7o!
O    >TDVW
OoOCNOD?
Yqb)XW
g oCOlO
+2j] o
cBmcB0BcZB
BdBlBc
m    lNU>UNmNU
ONu>K
NOUxKxK
m    Nm>mUlOxm
xUxNxUNx
cBmNlNmKNU
Kcl>mUNmUmNU>
KNOxU
ONxPulxUmK>cKmKNml
cKm>Kum
)hq{j? )
NOlNO)
aJAq<nvFQ:oP
qrp2`
:o"lm>KOlOY
7?TPCP5?
bq2i_R7QPDOCP":?
wq2@E7s:oxl
`biE[ CoONmK
BKcBmBc
V0d(VW(
(W(0c
d0cKmumNmNKNU0mcmKl
UNBl>ml
NKlKm>0KNOK
cBmKNONmNU
lKlKlKxmKm
xNOxK
N'uN>NmxKl>KmBld0BmBcNumNxBmNmKlKNUlm>mUN
NU>UOUP
NxNxKNlKB>lcKNxUO>UKc
KNmxKNU
Z]^`)
^yAH;g:C
lKNloY
Zyrq2H@_E? :xm>mNC)
*%7:!P
qG@;FEQ!:!P5":7
ar&v_EQ"oON
)oOl>
lBd0cBd(
(VcBcd
0mcNmNK>uN
NuONm>K
lOKOKmNmK
>NmNKmKuNUxU
NxUxNKlKU>K
m>NmKNlU>N
mlUNm
>K>KmNl
mNKNUNx
NUKNlKmKlUmNOUON
ahq<ig:oPOUx
kvRF7"PCP>lNPo
+Aqbk+iEg:?o>l
qAH@;E,?7TQ"
yrpnGtF?PC
h#f3abkjEo
O>KcC
c0B0d
(WXWX
dB(dcm
>mlB>mKBNmB
UuOcN
NUKlNKmO>c
NUxUOPUNxOmKm
NUxPUxU
UOKNOBmB
KOl>KNuNlBOUN
uONKxUPm
mOUONl
0mNUNBU
Zaqa[
W|3r<;}?"Px>KPlD
_rq<kS_gQ"oCNulNmCD
W_rAG_;j:o"
$7,Q4R
1;IAHkSLF,87F8
1ZVZ3#q2GvF?QPOl
#whqapkiFs?:l
dVd(V(
d0dmVKmV
dK0cNdmKBKm
mOKmNUNm>K
NOmPNO
N    UxUNKNmNx
cm>KlKN>mlmNl
0cNPmUc>mKNlKNmK
uBNUO
ONOUKm
m>KcNmBNUm>KxCo
|3A{iR:ePNKlNOC
qrpHkFE: xPlP>K
1ij? "OlNK>mKCl
F/.'Z
'H$8F4,1
%$4F:
Z^#rqk@LsQ"oxm>lm>C:
[2n^[Z
qpG;F[eo
mV(m>
KmKmcK>c>mcBNU0
clmNU
BmUONxU
UmcxN
xKNm>mKcUmKlNKNxKUmNcU
cNUlU
PUNmx
lK>K>UOlNcuNxNDZ
fw<G;R
OlNxOx)
WwqpkjE:1CPCuxNlKmCo:
+{@:o:xOCmOm
    W_A&H-
 zJrp+;F7?
x    N>KN>No:
Fs"PDNlB
(WdBdVB0(
m0m0K0ml>lBcBmNl
>mKmc0mcNlNOm0mONUKUNP
xUPlKOUN
lcUKO
m1NlNUOmKmKNmNcBcNUOmOK>NmKxUKmUcmKcBmNxUNK>UOmBUON
PxUNUxUNmNPUmxKlKUOCKNmKc
U    NxBNKCP?Y
_Jrni}R7PxONU
kiE]:oC
mxNUmlNC j1
    Z+H_gQoPx
iEF?CxPOcNmucCog1W
    Wap+;E]e
lm0dB0V
0BdZB
0dVB0
d0dBKNmu
m>KUN>Bd0m>K
BN>UmOUlOPOUO
KUmOK
NBNcOBNKOmcKl
N    U>mc0m
mx>m>NKONUNxNUNUKmKmK
KONPUKNxNuN>mOUPUO
N>NUKNmKNU>
cmUmKOKxOKOUOl
:F@ik
rwyhwq<{vR
o"RGHpHn@_*: CPm
Nxle?jGn+2
pnEF:P
NKNKlC";kH<
2@jEs"oO
N>KOC?Fk^[
apk^E:e)ol
cVmWV(
(d(VdV0V
(dW(0
d(dVBV
m    >N0mKl>KN
0mKBcmKl>UNUOKN
mUKNmOm0lmNKUKmlK0Bdlx
lUNmBNxKN>UNlUK
OxUOUK
UxUKlmNOUOx
mOUOx
>mxUl
mUmNmlNlo?s;nH
<qp<{@ER x"ONlONPTQs;G@i
: e)xc
N!>UKUc>NCPsEkHpb<n+E:sPoOl>OlN>:QR
G-@GH
H<HG+_E
dNu0lCo:Einb
d    (V(V(W(WV
WVWVWVW0dV(V
0(dc(c
d0d0m>BKdcN0lcKm0V0d0dc0BmKm>Nl
BcmcK
m>U>KcB
>KmNd0
N    lN>dNmcKU
UNOxUOUNU>PNK
K0mBm
lmlKU
KOcmBUO
KUOUmKm>KmOKmPxONOUO
mK>K>OD
+    @GSiLF7?Q
x    NxuUNOo"Q
RFs? e
>mNKl>C:?Fj;ikFtE?:PON>OU
jF*?:)lo
>le:EFj
^i*:[)
WdV(V(
V(d(0(dV
V(dVB
0md0cZ
BcB0mK>
>muKcm0dc0Kl
cmlmKOKBcNKlON
lNKcmNm>
KlU0NmNUm>mN
KmlmKUOKuN
gF7s?
CxNKl>KxOxP:D
mKlUN
Po:[7Fg]Es DPCluNlOmc
P?,FEF
0BZBc)e
W(VWVW(
dVd(dV0dm0B
W(0VdBc
cdc0BcK
lB>lK
KmcBdBmdl
mKcBlKd0Kc
dKBNKc
Bm0uNuN>mcOml
mKcNm>Bm
KlN>UuNmNONlKmNmB
oNUNoKmc
P:"?Q:s ? QxoxOUN
mKmON
C    oeDePDOC
)N>lUu>Ol>eD":E,F$;%
?     eC)lZ
0    Zmc)e)D )
YlYcV
ZBd(V(B0V(
0    dV0V0m
K0mKV(m0m0B0d>clmNKcB
cBcBl
0KlmK
0mOKNuNKlm
NmNc>
lBlKm0KlUNl
KmlmNc
mclNlNCl
eC"xe>OmKCu
mNBcK
 oC)l
dB0Zc(V(VdVdV
V(0Bcm
0(0m0m0c
0    m>mBcm0mK
B>B0Bcd0cm>K>m
m>KNBm
>mNKlcmB
mB0lKm
KcmKNB
COCl>lClm
N>dc(
mlClN
)CcNml0m>d
>mOC:P"
%$%-V
VB0d0B0
0c0dVc0d
0d(cBlcB
VdBmdBd0d0d
mcmKmK0
mc0B0c0Bd>mK
mlmC>
l    NuCNclC>l
mBdV0B0m
mB0cBK>m
c0m0mBcl>NCoD1:
H%$F$
V(V(V
XWXWX
WXWXW
W(W(V0W
(Vd(V(d
(V(V(V(dV(VdV0(
0dcBdcBd
VB0cVd0BmV
c0cmBV
Vd0(V
0VcmlB0
Bd0mK
B0m0dcBc
>0c0Bl
mcBmBcmc
VdVcmcB0d0Bm
clm0d0d
 C)Yc0V
(VWd(
(V(V0c0Bcd
dB0(VcmVBVW(dB(0
V    0V0Bcd0cB
B0(Vd(d0c(0
BcdVdB
ZV0dVcVBmVBcd
BcV0m0BcBcB0
0B0BcVB
Vd0c0
d    V(VBcBV
XWXWX
dVd(d(VW
d    Vd(d(W(
V    0V(dBc0dW
W0BVd0d0(V
(B0cdB0cd(dV(V(d0dW0Bdc0d
B0W(Wd(
dV0d0(W(V0d(Vd(V
XWXWX
V(Wd(
d(WdV0dV(Z
dVdV(
0Z0d(dV(V(W
(dVdVdV
VdVdV(
(V(VWV(VW(V
(V(WV
VW(V(W
E;EF;
XWXWX
scsZJ
kZ{cR
{{kZscR
{kcZJ
sskZkcR
s{{kssc
ccRZZJ
 Log"
WWWWWWWW
XXXXXXXX
WWWXWXWW
WWWWWWXW
Categori_z
Archive Log
Archive Log
LogCount
LogTotal
 for
ArchiveDate
    Message Content:
ArchiveTrailer
ArchiveTrailer
<br><hr><b> <a href=/
/($All)?OpenView>All Documents </a></b> | <b><a href=/
/by+Category?OpenView>
by Category</a></b> | <b><a href=/
/by+Author?OpenView>by Author</a></b> | <b><a href=/
/Archiving?OpenView>Archiving</a></b> <hr>
    Hidden:
Archive Log for
ArchiveDate
    1S2S
Subject
(Archive)
Categories
Close
    0S0E
Categori_zeF
_Edit Document
Send Docu_ment
_Forward
_Move to Folder...
_Remove from Folder
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
DocLife
$ManualArchivers_O
ObsoleteLife
DocumentLife
$TITLE
$Info
$WindowTitle
$$Script_O
$$ScriptName
ArchiveDate
$Body
$ACTIONS
Times New Roman
 (ArchiveInstructions)
1?1?1;?
2;21?2
1?2?1
?1?12;2
1?1?2
?1?1;
1?;?1;1?
>K>1?
;2>?1>
7M8FA
    =ZHFEB
8HEABC@
K    >K>J
OLBAEF
K>J>K1
?JK>K
$dJ>6
KB ^ZSR\
TJL@5
4:HEBCO
18P:6
121?>
$WO$W(W
K>6G]D6
LO#OWO
8    FAB
K?K>K>
\W$\dg)`ROL@5GYj]H1
1CU^Z
4YPZH
bTdOTCU&
V    b%s
*lhg\
O(\W\6
:=    F7BLB
hSgO`
G&c%nphg\($W(
g@>61UB
7UcP I
    QP=Z    G
g\(\)viVbVtr`\nc!
%Uu%n+p
*gd[Vbf|u%n*hgh
dgq)`O
DU<=IH
fOT#O#
6<P<7
[yt*`s&us L@LC'cu%n
l*hgdgdoh
b    )|u%t+lhv
Y    PMZ
K    1?1?1?;1
uzu%ST
Td&u%o
)*ph)g
*g\VbVx|uxn+rg
) vrqi(lpOCJ>618D
876FNPZ
9DUPZ
XtumhO
W    lmibVbVbX
*)o*ogT
V|zyx
-[bVk_V
VkRWC
6@]Y<N    S
pqbVbV
b    X+lo*h*hf
[~&yxtr-
O@>NjQN
g)*$V
0y%xyudVbX/
|#iVbotrwplx[bVk|zytrtobVbX-0obVbksmu
K    >1K
>1>K>K
d)gpebVby}~qbVb0yx%
T.tri
kx+pw
b    ozyxt-tkV
b    fs% ^
AF    M=<
=MGF7BC
1;12;
;2121212
FSHG
i~0zk
b    ezy%rtrbV
b    VbVbVbqx-
r)VbVtzxt-rtfbV[~z/yebVfsnl
2?1;1
BCO@>
h)VbVp|y/fVbTzxtrto
rxrpw,i
f|/{.X
1    212
>K#K>
)ytlprwVbVz~|
/yxtr
p    rebVezxnr
Vbz/yk
Vo%Sg
6K>4C4
>    K>J
@OBO$
WdhfVbV0yxpVbVrstp*p+[
eyzypTxn
V[ylo
fzxtqV
xtp`ohpqVbVbV
etph)gh)VbVoxrp
libVbT
X,t*gO
K>K>KJ>
Vkxtrf
e~iVbVf-%lg
K    >6>
rntlh
gS+lo*
\golnrlh
`*VbVi|yxptxnSgOL
OW\ghl*lShg
OWg`h`g
S`dO@
W\$bVbntlh
;21;2
;12?1
?1?1;1
1?1?1?1
T@J>6?1
121;12
J@LOW\gh*`
?16?6
\R`ROC@K>6
cskJkcB
{J{sB
{{kssc
RssBkk9ss9
22222222
Archive Help
Archive Profile Help
The Archive Profile allows you to specify which documents should be removed from the current database and stored in an archive database. This allows you to keep your database up-to-date with only the latest topics.  Archiving tasks can only be performed by designers or managers of the database.
You can choose the following in your ArchiveProfile:
    Archive expired documents
    Choose this option if you wish to archive documents which have been marked as expired. Indicate the number of days to wait before the expired documents are archived.
    Archive documents which have no activity
    Choose this option if you wish to archive documents which have had no activity. Indicate the number of days to wait before the inactive documents are archived.
    Generate an Archive Log each time an archive occurs
    Choose this option if you wish to have an Archive Log created when documents are archived.  You can also indicate if you would like document links to the archived documents included in the Archive Log.
    Archive Profile Editors:
    Specify the names of those users that should be allowed to modify the Archive Profile.
    Specify Archive Location:
    Click on this button to specify the server and filename of the Archive database. The archive database is created for you based upon the values specified in the dialog box.
    Documents are Archived:
    Select the location for the archive database.  Options are Locally or On Server.  What you select depends on where you intend to locate the archive database.  In order to create databases on a server, you must have the proper access rights in the server document for the specific server.
    Archive Database Server:
    Specify the server which you would like to create the archive database on.  If you are entering this from a web browser, you can only enter the current server that the database is located on.  Use a Domino Designer client to enter a server other than the current server where the database resides.
    In order to create databases on a server, you must have the proper access rights in the server document for the specific server.
    Archive File:
    Specify the filepath and filename of the archive database.  If no path is specified, the database will be created in the Notes data directory on the server or on the local client.
<hr><b> <a href=/
/($All)?OpenView>All Documents </a></b> | <b><a href=/
/by+Category?OpenView>
by Category</a></b> | <b><a href=/
/by+Author?OpenView>by Author</a></b> |<b><a href=/
/Archiving?OpenView>Archiving</a></b> <hr>
Categori_ze
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From Foldert
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Info
$$Script_O
$$ScriptName
$Body
$ACTIONS
(ArchiveProfileDlg)
Y=qMqL=+
Hl&Z8
M=q7Mq_
'Hk8[9
8[9'kI
Mq&ZH
I'm8m
<o<^<
7=k+H
qG%kG
Y%Y+G
    l%Y7[
7[ml9[k
p)Mk7q
=q=GM
Hm'IlI'
o=;_)_
qL7q+_
9lm%k
&Z8Z8
G_Y8Z
Gk%G7
=_p<%G7
8kpMq+
8lZ&Z&
7G%Y^
+G%qZ
k7q*=
L_p<_
=k[<l
7Y%_7
GY+7k7
I9m9m
qM=+_+
];op^
%YGYk
M+H%8
%G%l&
%k_7*
*^*_7
Y=_Mq=
k'H&H&
L+q+q=
^    _p^=
;pL]o
];K_=Y
J]n](
Lq<p_
<^L_+
T    ?f!
    T    -a
a-!    2x
y3yUyW"
ccckkksss{{{
{{sssk
ss{{{
3 Worksheet
Local
ArchiveLocation
Locally | LocalOn Server | Server
ArchiveLocation
Local
    1S2S
    0S0E
ArchiveServer
ArchiveLocation
Local
ArchiveServer
ArchiveServer
    4RS4E6R7S8S10RS4E12R13S14S16RS4E28RArchiveServer
CurrentPath
    1S2S6S
CurrentFile
CurrentPath
    0R1S2S6S
FileOnly
CurrentPath
CurrentFile
Macintosh
CurrentPath
CurrentFile
CurrentPath
CurrentFile
CurrentFile
    0R1S2S8S11S15S19S20S21S22S26S29S33S36S37S38S39S40S44S47S51S54S
DirOnly
CurrentPath
Macintosh
CurrentFile
CurrentFile
CurrentFile
Macintosh
CurrentPath
CurrentFile
CurrentPath
CurrentFile
    0R1S2S8S11S14S15S16S21S23S2E24S27S28S34S36S37S39S43S45S46S49S50S51S52S53S57S60S64S66S67S69S70S71S72S73S77S80S84S86S87S89S
dftvalue
DirOnly
FileOnly"
CurrentPath
    0RR1S2S3S4S7S8S10S12S13S17S
Macintosh
dftvalue
dftvalue
dftvalue
dftvalue
dftvalue
    0R3S4S5S6S21S22S23S24S25S26S
ArchivePath
Please specify the filename of the archive database
    3S4S6S11SArchivePath
    Documents are archived:
    Archive database server:
    Archive file:
servers
names.nsf
($Servers)
    1S2S
selectedserver
Server
Please select a server to create your archive database on.
archiveserver
servers
    0R1S2S
ArchiveServer
selectedServer
    0R1S2S3S
?_?__
`!b`1
7`^///?
?b___
`bOOO
`<b!R
@If(@IsN
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
mmxGu
$TITLE
$Info
$$ScriptName
$Body
(ProcessExistingDbDlg)'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuidocument)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As NOTESUIDOCUMENT
     Set Source = Bind(Objectname_)
     On Event Postopen From Source Call Postopen
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)
     source.RefreshHideFormulas
End Sub
Z<rNrM<+
Im&[7
N<r6Nr`
'Il7\8
7\8'lJ
Nr&[I
J'n7n
;p;_;
6<l+I
rH%lH
Z%Z+H
    m%Z6\
6\nm8\l
q)Nl6r
<r<HN
In'JmJ'
p<:`)`
rM6r+`
8mn%l
&[7[7
H`Z7[
Hl%H6
q;%H6
7lqNr+
_*Hlr
m76`&
"MpM<
n'8[&
6lI7[
q;*:qL
<N%r6